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SECTION  1 


INTRODUCTION 


This  report  describes  a  breadbo’ard  microcomputer  system  based 
on  an  Intel  SBC  80/20  Single  Board  Computer  (SBC)  which  fulfills  the 
project  demonstration  requirements  for  an  improved  polling 
capability  for  various  satellite  terminal  users.  The  system 
underscores  the  flexibility  and  power  of  microprocessor-based 
hardware  and  software  applications  and  provides  extensive  simulation 
capabilities  related  to  terminal  performance  improvements  for  Air 
Force  Satellite  Communications  (AFSATCOM)  ultra  high  frequency  (UHF) 
satellite  communications  in  a  real-time  environment. 

A  preliminary  study  to  investigate  the  attributes  and  growth 
potential  of  the  AFSATCOM  narrowband  (NB)  automatic  Roll-Call 
Polling  mode  was  undertaken  by  The  MITRE  Corporation  for  the  Elec¬ 
tronic  Systems  Division/Air  Force  Systems  Command  (ESD/AFSC) .  The 
purpose  of  this  study  was  to  lay  the  groundwork  for  eventual  imple¬ 
mentation  of  polling  mode  enhancements  through  software-only  changes 
to  the  AFSATCOM  message  processor  unit  (NPU)  subsystem  as  one  means 
of  improving  overall  netting  capabilities.  Subsequent  polling- 
related  studies  involving  advanced  concepts  have  identified  growth 
possibilities  in  the  MPU  subsystem  which  need  software-only  changes. 

As  a  result  of  these  studies,  it  was  concluded  that  many  of 
these  new  polling  capabilities  could  be  demonstrated  easily  and 
economically  through  use  of  currently  available  microcomputer 
techniques  without  the  need  to  modify  any  existing  AFSATCOM  hardware 
or  software.  New  functional  capabilities  could  be  added  by  a 
serially  transparent  microcomputer  using  existing  interfaces 
presently  employed  by  the  AFSATCOM  MPU  subsystem.  A  polling 
improvements  project  was  therefore  undertaken  which  resulted  in  the 
development  and  testing  of  the  microcomputer  system  detailed  in  this 
document . 

To  place  the  polling  improvements  in  perspective,  an  overview 
of  the  AFSATCOM  space  and  terminal  segments  is  presented  in  section 
2.  Section  3  briefly  describes  the  polling  improvements  project  and 
its  initial  test  results.  Section  4  presents  details  of  the  polling 
improvements  actually  implemented  by  using  a  microcomputer  add-on 
enhancement  with  an  AFSATCOM  terminal.  Sections  5  and  6  provide 
details  of  the  microcomputer  hardware  and  software,  respectively, 
for  the  demonstration  system.  Section  7  presents  the  overall 
conclusions  and  recommendations  with  regard  to  AFSATCOM  polling 
enhancements  and  the  follow-on  objectives  and  planning  for 


1 


subsequent  demonstration  testing.  The  AFSATCOM  Roll-Call  Polling 
mode  is  described  in  appendix  A  and  a  full  source  code  listing  is 
provided  in  appendix  B. 
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SECTION  2 


AFSATCOM  SYSTEM  OVERVIEW 


The  AFSATCOM  System  is  designed  to  provide  command,  control, 
and  communications  capability  on  a  worldwide  basis  to  Single 
Integrated  Operations  Plan  (SIOP)  and  other  designated  high  priority 
users  for  emergency  action  message  (EAM)  dissemination,  force 
direction,  force  reportback,  and  Commander- in-Chief  (CINC) 
internetting.  Communications  are  also  provided  for  a  limited  number 
of  non-SIOP  normal  force  elements.  The  AFSATCOM  System  operates  in 
the  225  to  400  MHz  UHF  spectrum  and  uses  the  75  bits-per-second 
(b/s)  teletype  (TTY)  service  with  frequency  shift  keying  (FSK) 
modulation . 

The  AFSATCOM  System,  depicted  in  figure  2-1,  consists  of  a 
space  segment  and  a  terminal  segment.  The  space  segment  includes  a 
communications  capability  designed  into  satellites  such  as  the  Navy 
Fleet  Satellite  Communications  (FLTSATCOM)  satellites  as  well  as  Air 
Force  transponders  carried  "piggyback"  on  other  vehicles.  The 
terminal  segment  is  composed  of  various  configurations  operationally 
characterized  as  SIOP,  normal  force  (non-SIOP),  and  command.  SIOP 
and  normal  force  terminals  utilize  only  5-kHz  NB  FSK  channels,  while 
command  terminals  also  have  access  to  an  M-ary  FSK  500-kHz  bandwidth 
wideband  spectrum.  To  ensure  orderly  management  of  day-to-day 
operation  and  control,  each  terminal  user  is  part  of  an  overall 
AFSATCOM  System  control  structure. 


2.1  SPACE  SEGMENT 

The  AFSATCOM  space  segment  consists  of  several  types  of 
transponder  carried  on  different  host  satellites.  AFSATCOM 
equipment  is  designed  into  each  of  the  Navy  FLTSATCOM  satellites  in 
geosynchronous  equatorial  orbit  to  prov'ide  overlapping  earth 
coverage  in  all  areas  except  the  polar  regions.  Polar  coverage  is 
provided  by  Satellite  Data  System  (SDS)  satellites  placed  in  highly 
inclined  elliptical  orbits. 

Each  satellite  has  12  NB  channels  for  specific  user  functions. 
The  first  seven  NB  channels  are  used  to  disseminate  the  EAM,  force 
direction,  and  force  reportback  for  SlOP/nuclear-capable  forces. 

The  next  four  NB  channels  are  assigned  to  support  essential 
operations  of  non-SIOP  high  priority  Air  Force  users.  The  twelfth 
NB  channel  is  used  for  system  control  and  is  designed  to  function  as 
the  orderwire  (OW) .  Each  of  the  FLTSATCOM  satellites  also  has  a 
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wideband  (WB)  channel.  Accesses  on  the  WB  channel  have  been 
assigned  to  the  National  Command  Authority  (NCA) ,  the  CINCs,  and 
members  of  the  Worldwide  Airborne  Command  Post  (WWABNCP)  fleet  for 
the  CINC  Internet.  STOP  and  force  terminals  do  not  have  access  to 
the  WB  channel.  Command  post  and  net  control  terminal  elements  have 
the  capability  to  command  the  various  satellite  modes  using  their  OW 
or  NB  channel  equipment. 


2.2  TERMINAL  SEGMENT 

The  AFSATCOM  terminal  segment  consists  of  various  equipment 
configurations  to  meet  SIOP,  normal  force,  and  command  operational 
requirements.  The  terminals  are  airborne  or  ground-based  depending 
on  the  user  application. 

SIOP  terminals  provide  75  b/s  half-duplex  TTY  operation  via  the 
5-kHz  NB  satellite  channels  and  can  be  operated  in  time  division 
multiplex  (TDM)  modes  under  control  of  a  command  post.  The 
input/output  (I/O)  devices  are  a  keyboard,  teleprinter,  and 
appropriate  control/monitor  panels.  Hard  copy  is  available  from 
terminals  using  the  teleprinter.  A  SIOP  synchronizer  provides 
proper  synchronization  during  TDM  operation. 

Normal  force  terminals  (airborne  and  ground)  provide  75  b/s 
half-duplex  TTY  operation  via  a  5-kHz,  fixed  frequency  satellite 
channel.  The  absence  of  a  SIOP  synchronizer  allows  the  normal  force 
terminals  to  operate  only  in  non-TDM  modes. 

Command  post  (CP)  terminals  can  send,  receive,  and  monitor 
messages;  establish  SIOP  timing  synchronization  for  TDM-1  (normal) 
and  TDM-2  (stressed)  modes;  provide  satellite  UHF  commands;  initiate 
EAMs ;  and  operate  in  a  network  control  system  using  an  OW  channel. 
They  can  also  monitor  and  record  all  reportback  data  to  allow 
command  transition.  These  terminals  use  full-duplex  75  b/s  TTY 
operation  on  the  500-kHz  WB  channel,  along  with  half-duplex  and 
full-duplex  75  b/s  TTY  on  the  5-kHz  NB  channels.  Each  CP  terminal 
can  operate  as  either  a  CP  terminal  or  SIOP  force  terminal  when  in  a 
slave  mode.  In  the  slave  mode,  SIOP  timing  synchronization  is 
provided  by  another  CP  terminal.  The  AFSATCOM  Type  12  CP  terminal 
is  described  below  since  it  was  used  for  the  polling  improvement 
demonstration  capability  discussed  later. 


2.3  AFSATCOM  TYPE  12  COMMAND  POST  TERMINAL 


The  AFSATCOM  Type  12  (AN/TSC-88)  CP  terminal  provides  full- 
duplex  record  communications  using  FSK  modulation  at  75  b/s  and  is 
housed  in  an  S-280  shelter  that  can  be  transported  for  rapid  global 
deployment.  The  terminal  consists  of  equipment  installed  in  four 
electrical  equipment  cabinets  and  a  two-position  operator  console, 
all  within  the  shelter.  Steerable  and  fixed  antennas  are  set  up 
outside  the  shelter  when  it  is  operational  and  are  stowed  inside 
during  transport.  Figure  2-2  is  a  functional  block  diagram  of  the 
Type  12  CP  terminal. 

Five  AN/ARC-171  transceivers  (R/Ts)  and  their  associated 
controls,  in  conjunction  with  two  half-duplex  and  one  full-duplex 
narrowband  modems,  and  two  full-duplex  wideband  modems,  provide  five 
transmit  (TX)  and  12  receive  (RX)  communications  channels.  These 
channels  are  identified  as  follows: 

•  NB-1:  a  one  transmit/one  receive  (1x1), 
ha If -duplex,  NB  (5 -kHz)  channel. 

•  NB-2:  a  one  transrait/eight  receive  (1x8), 
full-duplex,  NB  (5-kHz)  channel. 

•  OW :  a  one  transmit/one  receive  (1x1), 
half-duplex,  NB  (5-kHz)  channel. 

•  WB-1:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

•  WB-2:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

Several  narrowband  operating  modes  are  available  in  the 
AFSATCOM  System.  During  normal  operation,  messages  on  NB  channels 
one  through  seven  are  received  by  FLTSATCOM  and  SDS  satellite 
packages  on  fixed  uplink  frequencies  and  retransmitted  on  fixed 
downlink  frequencies.  Methods  of  transmission  in  the  normal  mode 
include  random  and  polled  access.  Random  operation  allows  the 
terminal  to  enter  the  net  on  a  random  access  basis  using  an  open 
(not  busy)  select  channel.  Polled  operation  allows  the  Type  12  CP 
terminal  to  query  each  terminal  in  the  net  in  sequence,  with  each 
terminal  responding  automatically  with  a  precomposed  message  when  it 
detects  its  own  unique  code  sequence. 

All  of  the  NB  channels,  including  the  OW  channel,  can  be  used 
for  automatic  polling.  In  the  polling  mode,  the  Type  12  CP  terminal 
sequentially  addresses  poll  inquiry  messages  to  terminals  assigned 
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to  various  poll  groups.  Poll  groups  and  polling  operations  are 
under  the  control  of  software  programs  in  the  terminal  computer,  the 
MPU.  Four  separate  poll  groups  and  up  to  16  members  apiece  are 
allowed  by  the  software.  Each  terminal  to  be  polled  will  precompose 
a  poll  response  message.  When  the  unique  address  of  that  terminal 
is  recognized  in  a  poll  message,  the  precomposed  message  of  up  to  30 
seconds  in  length  is  automatically  transmitted. 

During  periods  of  high  density  traffic,  the  Type  12  terminal 
can  initiate  synchronized  operation  for  SIOP  users  by  implementing  a 
TDM  mode.  In  this  mode,  the  CP  synchronizer  periodically  transmits 
a  sync  message  which  automatically  establishes  a  time  reference 
within  each  SIOP  terminal  in  the  net.  In  the  TDM-1  mode,  each  SIOP 
terminal  is  constrained  to  transmit  a  precomposed  message  within  its 
assigned  time  slot.  Sixty  consecutive  time  slots  constitute  a  frame 
after  which  the  sequence  is  repeated,  with  the  CP  synchronizer 
transmitting  a  new  sync  message  in  the  last  time  slot  of  each  frame. 

During  TDM-1,  only  the  transmit  time  of  each  SIOP  terminal  is 
controlled  by  the  CP  synchronization  message.  During  TDM-2,  both 
the  transmit  time  and  transmit  frequency  of  each  SIOP  terminal  are 
synchronized  by  the  CP  synchronizer.  In  the  TDM-2  mode,  the 
satellite  transponder  is  commanded  into  a  stressed  mode,  which 
causes  the  first  seven  NB  receive  channels  in  the  satellite  to 
frequency  hop  on  a  pseudorandom  basis.  Also  in  the  TDM-2  mode,  each 
SIOP  terminal  is  constrained  to  transmit  in  its  assigned  time  slot 
and  the  transmit  frequency  changes  with  each  time  slot.  The 
transmit  frequency  is  determined  by  the  code-of -the-day  which  is 
programmed  into  each  synchronizer  by  the  operator.  Before  the  net 
can  enter  the  TDM-2  mode,  the  satellite  must  be  commanded  into  the 
stressed  mode. 

Three  modes  of  operation  are  also  provided  on  the  WB  M'ary  FSK 
channels.  These  are:  (1)  random  access  precomposed  message;  (2) 
random  access  manual  message  composition;  and  (3)  full-duplex  relay, 
which  is  also  available  in  NB  random  access  mode. 

During  normal  CP  terminal  operations,  communications  channels 
OW  and  WB-2  are  assigned  to  operate  with  a  fixed  antenna.  The  WB-1, 
NB-1,  and  NB-2  channels  are  assigned  to  operate  with  a  tracking 
antenna.  Antenna  switching  is  provided  to  allow  the  OW  and  WB-1 
channels  to  operate  with  either  antenna. 

Additional  details  pertaining  to  the  AFSATCOM  Type  12  terminal 
can  be  found  in  another  document. 


2. A  CURRENT  AFSATCOM  POLLING  CAPABILITIES 


The  present  AFSATCOM  polling  capability  is  primarily 
structured  for  automatic  operation  in  the  non-TDM  unencrypted  mode 
over  a  single  5-kHz  NB  channel.  Polling  operations  for  AFSATCOM 
System  control  are  conducted  from  MPU-equipped  terminals  by 
utilizing  a  polling  algorithm  contained  in  the  MPU  software. 
Cotranunications  supervisory  (COMSUP)  commands  input  by  the  terminal 
operator  are  used  either  to  enter  or  delete  poll  addresses  as  well 
as  to  start  polling  operations.  Up  to  64  pollees  may  be  entered 
into  a  poll  net  consisting  of  four  groups  having  16  members, 
maximum,  per  group.  Addresses  for  each  group  member  are  related  to 
others  in  the  same  group,  with  poll  address  recognition  actually 
taking  place  within  the  AFSATCOM  automatic  send-receive  (ASR)  I/O 
hardware.  During  MPU  automatic  polling  operations,  a  non-reportback 
of  a  polled  address  will  cause  a  30-second  fixed  time-out  delay 
within  the  MPU  before  generation  of  the  next  poll  mersage.  Appendix 
A  gives  a  more  complete  description  of  current  AFSATCOM  polling 
operation,  including  polling  message  formats,  address  structure,  and 
poll-related  COMSUP  commands  for  the  MPU. 


2.5  POLLING  LIMITATIONS 

The  following  limitations  of  the  AFSATCOM  polling  mode 
constrain  its  utility  in  an  operational  environment. 


1 .  Small  Network  Size 

A  maximum  of  only  64  pollees  can  be  accommodated  in  the 
existing  MPU  polling  software.  Present  AFSATCOM  require¬ 
ments  forsee  nets  needing  to  accommodate  between  two  and  three 
times  this  number. 

2 .  Inflexible  Addressing  Structure 

The  group  organization  required  in  present  auto  polling 
dictates  that  all  members  of  a  poll  group  have  the  last 
two  of  their  three  address  characters  in  common.  Polling 
always  commences  with  the  lowest  address  of  each  group  of 
16  and  proceeds  in  sequence  toward  the  highest  address 
before  attempting  to  poll  the  next  group.  No  provision 
is  made  for  randomized  poll  addressees  who  are  not  group- 
related  members . 
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3 .  No  Prioritization/ Interruption  Features 

No  provision  is  made  for  real-time  prioritization  of  pollees 
based  on  operational  needs  for  early  or  more  frequent  report- 
back  requirements.  Also,  no  provision  is  made  for  momentary  or 
short-term  interruptions  of  polling  operations  to  accommodate 
higher  priority  traffic  without  complete  repolling  of  all  users. 

4 .  Inefficient  Bookkeeping  Scheme 

Current  polling  operations  dictate  that  all  poll  address 
additions  or  deletions  be  entered  by  COMSUP  command.  This  can 
be  a  time  consuming  process,  especially  since  no  provision  for 
a  truly  automated  .MPU  poll  table  generation/display  is  avail¬ 
able  to  the  operator.  Also,  prior  coordination  of  poll  address 
assignments  is  essential  but  is  unwieldly  when  attempted 
in  real-time.  Manual  bookkeeping  procedures  are  thus  mandated 
to  keep  abreast  of  current  poll  net  membership. 

5 .  No  Automated  Handover  Procedures 

No  provision  is  currently  made  for  an  automated  handover 
procedure  to  an  alternate  net  control  station  (NCS)  for 
polling  operations.  All  poll  address  additions/deletions 
must  be  accommodated  by  the  alternate  NCS  on  a  manual 
bas is . 

6 .  No  TDM  Polling  Node 

Automatic  polling  is  currently  restricted  to  the  non-TDM 
mode.  Although  TDM  poll  response  is  possible  from  a  polled 
I/O,  the  existing  MPU  polling  software  is  not  presently  con¬ 
figured  to  cope  with  the  structural  differences  between  AFSATCOM 
non-TDM  and  TDM  operation  since  automated  TDM  polling  was 
not  originally  conceived  as  a  basic  AFSATCOM  netting  require¬ 
ment  . 

7 .  Single  Channel  Polling  Restriction 

Polling  inquiry  messages  sent  by  the  MPU  during  polling 
operations  are  limited  to  a  single  channel.  Simultaneous, 
independent  polling  on  more  than  one  channel  is  not  currently 
possible  in  a  terminal  equipped  with  a  single  MPU. 

8 .  Unencrypted  Reportback  Limitation 

In  general,  the  30-second  time-out  constraint  during  automatic 
polling  limits  the  length  of  reportback  possible.  In  addition. 
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MPU-equipped  terminals  incur  internal  MPU  delays  such  that  their 
reportback  is  limited  to  130  characters,  maximum.  This  restricts 
the  use  of  the  Auto  Polling  mode  to  unencrypted  operation  with  a 
fixed  upper  limit  on  the  size  of  a  reportback  message;  the  upper 
limit  depends  on  the  type  of  terminal  responding. 


9 .  No-show  Delay  Penalty 

The  present  fixed  30-second  time-out  for  auto-polling  also 
incurs  a  severe  delay  penalty  when  a  no-show  occurs.  A  no- 
show,  or  non-reportback,  may  occur  for  a  variety  of  reasons 
such  as  failure  to  properly  receive  the  polling  inquiry  message, 
failure  to  be  in  the  I/O  poll  mode,  etc.  Figure  2-3  shows  the 
polling  delay  performance  of  the  present  non-TDM  roll-call 
polling  mode  as  a  function  of  the  number  of  non-reportbacks 
(assuming  a  40-character  reportback  when  one  does  occur)  for  the 
maximum  net  size  of  64  polled  non-MPU  terminals.  The  vertical 
axis  indicates  the  time  to  completion  for  polling  the  entire 
net.  As  fewer  net  members  report  back,  the  time  to  completion 
for  polling  increases  dramatically.  This  is  counter  to  the 
concept  of  maintaining  a  predictable  level  of  AFSATCOM  network 
performance  in  situations  supposedly  under  the  control  of  a  CP 
terminal . 

10 .  Error  Detection  and  Correction 

No  automated  procedure  currently  exists  for  repolling  a  net 
member  upon  detection  of  a  character  error  while  in  the  polling 
mode.  The  existing  AFSATCOM  unencrypted  message  structure  pro¬ 
vides  for  odd-parity  character  transmission,  but  this  capability 
has  yet  to  be  fully  exploited. 


NO.  OF  NON  REPORTBACKS 


SECTION  3 


AFSATCOM  POLLING  IMPROVEMENTS  PROJECT 


Providing  enhanced  polling  capabilities  by  using  AFSATCOM- 
compatible  techniques  to  meet  the  ever  increasing  demands  of  the 
AFSATCOM  System  is  a  primary  concern  because  the  Air  Force  has  an 
extensive  hardware  investment  in  terminal  assets.  Significant 
changes  to  present  hardware  or  software  must  be  evaluated  with 
regard  to  both  operational  and  logistical  effects.  Polling 
improvements  should  also  provide  flexibility  for  a  wide  range  of 
applications  yet  to  be  defined  and  at  the  same  time  address  the 
reportback  needs  of  specific  AFSATCOM  users  with  known  requirements. 

3.1  PROJECT  DESCRIPTION 

A  microcomputer-based  approach  for  demonstrating  various 
improved  AFSATCOM  polling  capabilities,  involving  no  hardware  or 
software  modifications  to  existing  AFSATCOM  equipment,  was  conceived 
by  MITRE  to  be  the  most  cost-effective  means  of  validating  many  of 
the  proposed  concepts.  The  microcomputer  provides  real-time,  on¬ 
line  simulation  of  new  polling  capabilities  while  functionally 
emulating  changes  to  MPU  software.  Making  this  microcomputer 
serially  transparent  to  existing  system  operation  with  no  need  to 
modify  AFSATCOM  assets  is  an  inexpensive  way  to  validate  new  polling 
concepts.  Operational  MPU  software  does  not  need  to  be  modified 
until  after  these  concepts  are  validated  and  user  coordination  is 
achieved  on  a  final  implementation  approach.  Physically,  the 
microcomputer  interfaces  between  the  MPU  and  either  NB-1  or  OW  modem 
in  the  AFSATCOM  Type  12  terminal.  A  project  was  initiated  to 
translate  these  improved  polling  concepts  into  actual  breadboard 
hardware  and  software  suitable  for  demonstration  purposes.  For  this 
purpose,  the  microcomputer  development  facility  based  around  a 
Tektronix  8002A  microprocessor  laboratory  at  MITRE-Bedford  was  used. 

Figure  3-1  describes  the  overall  implementation  approach  for 
the  project.  Because  of  the  small  staff  for  this  undertaking  (two 
part-time  MITRE  technical  staff),  relatively  close  coordination 
between  hardware  and  software  design  efforts  was  possible,  with  the 
result  that  the  project  was  successfully  completed  in  nine  calendar 
months . 
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Figure  3“1  Polling  Hardware/Software  Design  Cycle 


3.2  LIMITED  TEST  RESULTS 


Following  completion  of  bench  testing  and  terminal  integra¬ 
tion,  the  microcomputer  system  was  made  available  for  demonstra¬ 
tion  testing.  Technical  compatibility  of  the  improved  polling 
hardware/  software  with  the  AFSATCOM  Type  12  terminal  was 
demonstrated  during  the  initial  tests.  With  the  microcomputer 
installed  in  the  terminal,  both  software  and  hardware  bypasses 
provided  AFSATCOM  system  transparency  for  normal  AFSATCOM  modes. 
After  completion  of  various  terminal  performance  tests,  actual 
network  testing  was  conducted  using  the  FLTSATCOM  satellites.  All 
of  the  significant  performance  improvements  for  polling  (described 
in  detail  in  section  4)  were  also  demonstrated  successfully  in 
conjunction  with  other  cooperative  AFSATCOM  terminals  operating 
through  the  satellite  system.  As  a  result,  the  microcomputer  system 
is  now  considered  available  for  network-wide  tests  on  a  much  larger 
scale,  with  emphasis  on  operational  testing  to  demonstrate  improved 
netting  capabilities  to  potential  users. 
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SECTION  4 


MICROCOMPUTER-BASED  POLLING  ENHANCEMENTS 


Significant  improvements  to  the  present  AFSATCOM  polling  mode 
operation  have  been  achieved  with  the  microcomputer-based  addition 
to  the  AFSATCOM  Type  12  CP  terminal.  These  improvements  have  been 
demonstrated  to  participating  terminal  operators  during  actual  on¬ 
line  demonstrations. 


4.1  MAJOR  POLLING  IMPROVEMENTS 

The  major  polling  improvements  implemented  in  the  AFSATCOM  Type 
12  CP  terminal  are  described  below.  Table  4-1  compares  existing 
AFSATCOM  polling  capabilities  and  the  microcomputer-based 
improvements.  These  improvements  are  a  real-time  simulation  of 
capabilities  possible  with  software-only  improvements  to  the 
AFSATCOM  MPU. 


4.1.1  Group/Non-Group  Polling  and  Prioritization 

The  current  AFSATCOM  System  can  poll  up  to  four  groups  of 
related  net  members  where  each  group  is  defined  as  a  set  of  16 
addresses  and  each  address  in  the  group  has  the  same  last  two  hexa¬ 
decimal  address  characters.  This  group  structure  is  retained  in  the 
improved  polling  software.  In  addition,  a  new  set  of  net  members  is 
permitted  which  may  contain  up  to  80  random  addressees  (equivalent 
to  five  16-member  groups)  independent  of  any  related  group  address 
structure.  This  provides  flexibility  to  organize  and  poll  up  to  a 
maximum  of  144  group  and  non-group  net  members  per  channel. 

During  polling  net  organization  with  the  microcomputer 
software,  the  non-group  members  are  accorded  a  higher  priority  level 
with  respect  to  group-related  members.  Four  priority  levels  of 
polling  net  organization  have  been  chosen  for  demonstration 
purposes:  (1)  priority  check-ins,  (2)  routine  check-ins,  (3)  no- 
traffic  check-ins,  and  (4)  group  check-ins. 

During  polling  operations,  the  non-group  related  check-ins  of 
priority  levels  1,  2,  and  3  are  polled  before  the  group-related 
check-ins  of  level  4.  The  NCS  terminal  operator  can  enter  any  of 
these  check-ins  into  the  polling  net  by  COMSUP  command.  A  remote- 
entry  automatic  check-in  for  levels  1,  2,  and  3  is  also  possible. 
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In  addition  to  normal  termination  of  polling,  an  automatic 
repoll  capability  has  been  provided  to  allow  continuous  monitoring 
of  reportback  status  activity.  Also,  an  interrupt-and-resume 
feature  provides  a  standby  mode  for  polling  operations  to 
accommodate  higher  priority  communications  without  the  need  to  re¬ 
initiate  a  repoll  of  net  members  who  have  already  reported  back. 


A. 1.2  Remote  Entry  Automatic  Check-in 

The  microcomputer  software  provides  an  automatic  remote  self 
check-in  before  the  start  of  actual  polling  operations.  This  allows 
potential  users  to  become  polling  network  members  without  manual 
intervention  by  the  NCS  terminal  operator.  A  non-group  polling  list 
can  be  rapidly  structured  yet  the  work- load  imposed  on  the  operator 
by  the  large  number  of  possible  random  addressees  is  minimized. 

This  enhancement  also  allows  check-in  table  entry  while  current 
polling  operations  are  in  progress. 

The  NCS  terminal  operator  retains  positive  control  of  all 
check-ins,  including  remote  check-ins  with  the  following  software 
features ; 

1.  The  remote  check-in  mode  can  be  enabled  or  disabled 
separately  by  COMSUP  command. 

2.  Check-ins  can  be  verified  using  COMSUP  commands  to  obtain 
hardcopy  poll  table  printouts  of  listed  poll  check-ins 
and  poll  net  members.  (This  includes  both  group  and 
non-group  check-ins.)  Check-in  addition/deletion  can 

be  accommodated  by  COMSUP  command  as  needed. 

3.  Automatic  slot  assignment  and  reportback  prioritization 
(order  of  reportback)  of  poll  net  members  is  done  in  the 
polling  software  before  the  start  of  actual  polling 
operations;  reassignment  of  slots  is  also  possible 

with  a  COMSUP  command. 

4.  An  ALL  CALL  message  initiated  via  COMSUP  command  by  the 
NCS  terminal  operator  informs  all  listed  polling  net 
members  of  their  TDM  slot  assignments  (to  be  dialed 
manually  into  their  respective  AFSATCOM  synchronizers). 
Dial-up  of  respective  slot  assignments  avoids  subsequent 
contention  problems  during  TDM  polling  operations  should 
that  mode  become  active. 
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4.1.3 


TDM  Auto  Polling 


This  enhancement  provides  TDM  auto  polling  in  addition  to  the 
polling  capabilities  available  in  the  non-TDM  mode.  Thus,  AFSATCOM 
TDM-1  and  TDM-2  system  modes  are  made  compatible  with  the  new 
terminal  polling  capabilities.  This  implementation  requires  the 
AFSATCOM  synchronizer  in  the  CP  terminal  to  act  as  a  master  (i.e.,  a 
net  control  element)  during  TDM  polling  operations. 

To  carry  out  auto  polling  in  the  TDM  modes,  the  software 
utilizes  a  tabular  listing  containing  the  addresses  of  all  terminals 
in  the  poll  network  and  their  respective  assigned  reportback  time 
slots.  The  TDM  mode  provides  60  slots  per  frame.  During  actual 
polling  operation  in  the  TDM  mode,  eight  contiguous  slots  containing 
up  to  six  poll  messages  per  slot  at  the  beginning  of  each  AFSATCOM 
frame  are  dedicated  to  sending  polling  messages  from  the  CP  terminal 
to  the  pollees.  Three  unassigned  slots  immediately  following  these 
eight  may  be  used  for  break-in  by  unassigned  or  emergency  users. 

The  48  slots  following  can  then  be  used  for  terminal  reportbacks . 

The  final  slot  in  the  frame,  however,  is  normally  reserved  for 
synchronization  messages.  Because  each  AFSATCOM  terminal  is 
assigned  its  own  unique  address,  several  pollees  can  be  assigned  to 
the  same  reportback  slot.  The  microcomputer  software  presently 
provides  for  polling  a  maximum  of  144  users  in  three  successive 
frames  (with  48  reportbacks  per  frame).  This,  however,  is  not  an 
ultimate  AFSATCOM  System  limitation.  Up  to  three  addressees  may  be 
assigned  to  the  same  slot  under  this  polling  scheme,  but  this  number 
could  be  increased  to  accommodate  additional  users  as  necessary,  if 
more  frames  are  used. 

The  AFSATCOM  TDM  response  of  force  terminals  (or  CP  terminals 
in  the  slave  mode)  limits  polling  responses  by  a  polled  terminal  to 
40  message  characters  during  a  frame.  Also,  TDM  polling  does  not 
have  an  encryption  capability  as  presently  implemented.  However, 
various  priority  traffic  indicators  in  the  poll  response  message 
cause  a  printout  alert  message  at  the  NCS  terminal  for  subsequent 
operator  action.  These  are  described  in  more  detail  below. 


4.1.4  Automatic  Slot  Assignment 

In  conjunction  with  TDM  polling,  the  microcomputer  software 
provides  automatic  slot  assignment  of  listed  poll  net  members  for 
subsequent  TDM  reportback.  Before  actual  start  of  polling,  members 
of  the  network  are  informed  of  their  slot  assignments  by  means  of  an 
ALL  CALL  message  generated  by  the  software.  This  message  also 
indicates  which  users  have  been  accepted  into  the  poll  listing  along 
with  their  priority  order  of  reportback.  The  ALL  CALL  message,  like 
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the  slot  assignment  made  during  the  course  of  compiling  the  poll 
table,  is  generated  automatically  by  operator-initiated  COMSUP 
command . 


4.1.5  Encrypted  Non-TDM  Polling 

The  present  AFSATCOM  polling  time-out  limitation  of  30  seconds 
precludes  the  use  of  long  encrypted  reportback  sequences.  The 
microcomputer  system  software,  however,  permits  encrypted  polling 
responses  in  the  non-TDM  mode  of  operation.  The  software  is 
configured  to  recognize  KG-35  encryption  device  message  indicator 
(MI)  sequences  at  the  beginning  of  a  message  and  automatically 
disables  odd-parity  checking  in  the  AFSATCOM  NB  modem  upon 
recognition  of  a  valid  MI  header.  While  message  traffic  is  being 
received  during  polling,  no  message  time-out  occurs  in  order  to 
accommodate  encrypted  sequences  of  long  lengths.  Once  received,  the 
AFSATCOM  MPU  routes  the  incoming  encrypted  reportback  to  a  KG-35 
device  for  eventual  decryption. 


4.1.6  Error  Detection  and  Correction  (EDAC) 

The  present  AFSATCOM  polling  capability  does  not  provide  for 
any  EDAC  during  either  polled  or  non-polled  operations.  The 
microcomputer  software  does  provide  limited  EDAC  during  polling 
through  satellite  downlink  monitoring  of  poll  messages.  Polling 
message  retransmission  then  takes  place  upon  detection  of  error. 

This  technique,  however,  requires  full-duplex  operation 
(simultaneous  transmit  and  receive)  whereas  the  demonstration 
hardware  is  interfaced  with  either  the  AFSATCOM  OW  or  the  1x1  NB 
modem,  both  of  which  are  configured  as  half-duplex  equipment. 

With  a  full-duplex  channel,  after  transmission  of  a  polling 
message  during  non-TDM  mode,  the  microcomputer  compares  the  message 
sent  with  the  one  received  on  the  satellite  downlink  and  causes  a 
retransmission  of  the  same  message  upon  detection  of  any  mismatch. 

A  maximum  of  three  automatic  poll  message  retransmissions  is 
possible  with  the  present  microcomputer  software.  No  EDAC  is 
presently  provided  in  the  TDM  polling  mode  nor  is  EDAC  provided  on 
reportback  responses,  although  no  inherent  limitation  precludes  such 
additional  capability. 


4.1.7  Variable  Non-Reportback  Time-out 

A  variable  non-reportback  time-out  feature  using  a  COMSUP 
command  with  the  microcomputer  software  provides  the  terminal  NCS 
operator  with  an  added  dimension  for  control.  By  controlling  the 
time-out  delay  from  the  possible  non-reportback  of  polled  terminals, 
the  operator  can  minimize  the  time-to-completion  of  polling  the 
overall  network.  The  operator  enters  the  COMSUP  command  with  the 
desired  time-out  duration  expressed  in  seconds.  Note  that  the 
present  AFSATCOM  non-reportback  poll  time-out  is  a  non-changeable  30 
seconds,  whereas  the  microcomputer  software  allows  for  a  1  to  99 
second  range.  Choice  of  the  optimum  delay  depends  on  actual 
satellite  and  AFSATCOM  I/O  device  delays  and  the  polling  strategy  to 
be  employed.  The  ability  to  vary  the  time-out  delay  can  have 
profound  effects  on  the  overall  polling  completion  time. 

4.2  NEW  COMMANDS  AND  MESSAGES  FOR  POLLING 

The  following  new  polling  commands  and  message  formats  are 
possible  with  the  microcomputer  software. 


4.2.1  COMSUP  Commands 

Table  4-2  summarizes  the  new  COMSUP  commands  available  to  the 
NCS  terminal  operator  when  using  the  microcomputer  system  polling 
enhancements.  Note  that  all  the  commands  listed  contain  the  ZNR 
character  field  in  the  first  three  character  positions  in  order  to 
identify  this  properly  as  an  unencrypted  message  in  an  AFSATCOM 
preproduction  Type  12  terminal.  (AFSATCOM  production-type  terminals 
would  require  a  "UUU"  sequence.)  The  fourth  character  position  is 
an  exclamation  point  ("!")  which  signifies  a  COMSUP  message  to  the 
microcomputer's  improved  polling  software.  The  fifth  character 
position  of  a  COMSUP  message  is  always  a  mode  character.  Characters 
six  through  nine  are  microcomputer  address  characters.  (The 
microcomputer  address  is  also  changeable  via  a  COMSUP  command.) 
COMSUP  commands  intended  for  the  microcomputer,  and  any  other 
unencrypted  messages,  are  input  to  the  AFSATCOM  terminal  and 
intercepted  by  the  polling  software.  These  COMSUP  commands  are 
never  transmitted  to  the  AFSATCOM  modem. 

The  seven  message  categories  defining  the  new  COMSUP  commands 
are  shown  in  table  4-2.  These  functional  categories  satisfy  the 
increased  control  and  data  entry  requirements  for  the  various 
polling  mode  enhancements. 
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Table  k-2 


COMSUP  Commands  For  Pol  1  ing  Enhancements 


Command  Type 

Check-in  Table 
Entry 


Check-in  Table 
Deletion 


Function (s)  Command  Message  Format 


Enable  External 
Check-ins 

ZNR! 

SABC1 

Disable  External 

Check- i ns 

ZNR! 

SABC0 

Single  Priority 
Check-in 

ZNR! 

CABCAAA1 

Single  Routine 

Check-in 

ZNR! 

DABC6BB1 

Single  No-Traffic 
Check-in 

ZNR! 

EABCCCC0 

Group  Check-in 

ZNR! 

BABCDDl 

Priority  Table  Load 

ZNR! 

lABC  ADR! 

ADR2 

Routine  Table  Load 

ZNR! 

2ABC  ADR3 

ADRA 

No  Traffic  Table  Load 

ZNR! 

3ABC  ADR5 

ADR6 

Priority  Table 

Re- initialize 

ZNR! 

FABC 

Routine  Table 

Re-in i t ial ize 

ZNR! 

GA6C 

No-Traffic  Table 

Re-i n i t i al i ze 

ZNR! 

HABC 

Group  Table  Re¬ 
initialize 

ZNR! 

AABC 

Single  Priority 
Deletion 

ZNR! 

NABCP01 

Single  Routine 

Deletion 

ZNR! 

NABCR01 

Single  No-Traffic 

Delet ion 

ZNR! 

NABCN01 

Single  Group 

Deletion 

ZNR!NABrG01 
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Table  k-2  (Continued) 

COMSUP  Commands  For  Pol  I  ing  Enhancements 


Command  Type 

Function{s) 

Command  Message  Format 

Check-in/Poll  Table 

Pr i ntout 

Priority  Table 
Printout 

ZNRIUABCPXYZ 

Routine  Table 
Printout 

ZNRI.UABJRXYZ 

No-Traffic  Table 

Pr i ntout 

ZNRIUABCQXYZ 

Group  Table 

Pr i ntout 

ZNRIUABCOXYZ 

Bui Id/Pr intout 
of  Poll  Table 

ZNRIMABC 

Pol  1  Table 

Printout  (Local) 

ZMRIUABCZXYZL 

Pol  1  Table  Print¬ 
out  (Local  and 

Remote  All  Call) 

ZNRIUABCZXYZR 

External  Table 

T  ransfer 

Priority  Check-in 
Table  Transfer 

ZNRITABCXXYZ 

Routine  Check-in 
Table  Transfer 

ZNRITABCYXYZ 

No-Traffic  Check-in 
Table  Transfer 

ZNRITABCZXYZ 

Poll  Table  Transfer 

ZNR.'TABCTXYZ 
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Table  4-2  (Continued) 

COMSUP  Commands  For  Pol  ling  Enhancements 


Command  Type 

Funct ion (s) 

Command  Message  Format 

1  Mode  Control 

Single  Pol  1  Enable 

ZNR1JABC1S 

Single  Pol  1  Disable 

ZNR1JABC0S 

Multiple  Pol  1 

Enable 

ZNRIJABC1M 

Multiple  Poll 

Di sable 

ZNRUABC0M 

Non -TDM  Poll 
Interrupt 

ZNR1LABC10 

TDM  Poll  Interrupt 

ZNR1LABC01 

TOM  and  Non -TDM 

Poll  Interrupt 

ZNRlLABCn 

Disable  A1 1  Pol  1 
Interrupts 

ZNR1LABC00 

FDAC  Mode  Fnab'e 

ZNRIPABCl 

EDAC  Mode  Disable 

ZNRIPABCD 

Poll  Message  Time 
Delay 

ZNR1KABC10 

Reportback/Pol 1 
Message  Slot 
Reassignment 

ZNRIOABC 101 82634425004 
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Table  4-2  (Continued) 


COMSUP  Commands  For  Pol  1 i nq  Enhancements 


Command  Type 


Function(s)  Command  Message  Format 


Mi  seel  1 aneous 


Disable  COMSUP  Msg. 
Printout 

ZNRl^ABCO 

Enable  COMSUP  Msg. 

Pr i ntout 

ZNRI4ABC1 

Di sregard  A1 1  Non- 
COMSUP  Msgs. 

ZNR1VABC2 

Disregard  Non-COMSUP 
Msgs .  when  Polling 

ZNRIVABCI 

Enable  Recognition  of 

A1 1  Types  of  Msgs . 

ZNRlVABCp 

RS-232  I/O  Enable 

ZNRIQABC1 

RS-232  I/O  Disable 

ZNRlQABCp 

Microcomputer  Address 
Change 

ZNR! lABCCAB 

Program  Re- i n i t i al i ze 

ZNRIRABC 

Loop-Around  Message 

ZNR* . 

T  ransmi tted 
Message 
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4.2.2  Error  Messages 

Table  4-3  summarizes  the  new  error  messages  available  to  the 
terminal  operator  with  the  microcomputer  software.  These  messages 
assist  in  either  flagging  anomalous  COMSUP  command  inputs  to  the 
microcomputer  or  indicating  to  the  operator  when  pre-determined 
limits  have  been  reached  for  polling  check-in  messages. 


4.2.3  External  Message  Formats 

Table  4-4  summarizes  the  types  of  externally  generated  messages 
from  the  AFSATCOM  modem  which  are  used  for  polling  operations  with 
the  microcomputer  software.  These  messages  are  divided  into  three 
basic  categories: 

1.  Single  Check-in 

2.  Check-in  Table  Transfer 

3.  Reportback 

The  single  check-in  message  is  normally  sent  by  a  terminal 
desiring  to  become  a  member  of  a  poll  network.  It  is  accepted  by 
the  microcomputer  software  after  the  check-in  mode  has  been  enabled 
by  the  NCS  terminal  operator. 

Check-in  table  transfer  message  formats  allow  entry  of  entire 
sets  of  check-ins  involving  multiple  addressees  into  appropriately 
prioritized  check-in  tables. 

Reportback  message  formats  are  normally  sent  by  a  terminal 
responding  to  a  poll  inquiry  message.  When  the  microcomputer 
software  recognizes  these  reportback  formats  during  polling 
operation,  appropriate  prioritization  header  messages  are  appended 
to  the  incoming  message  before  printout  on  the  terminal  I/O  device. 


Table  4-3 


Error  Message  Formats 


Message  Name 

Function 

Message  Text 

AORERRORHDR 

Informs  of  incorrect 
address  characters 

Incorrect  ADR  Characters 

ERRORHDR 

Informs  of  incorrect 
mode  character 

Incorrect  Mode  Character 

TFRERRORHDR 

Informs  of  attempted 
check-in  table  transfer 
with  no  check-ins  listed 

Table  Transfer  Error: 

No  Check-ins 

OVERFLOWHDR 

Informs  of  Check-in 
limit  being  re  ached 

Check-ins  at  the  Limit 

Table  4-4 

External  Message  Formats 

Message  Type 

Funct ion 

Format 

Single  Check-in 

Priority  Check-in 

SW  C  ABC  ADR1  Text 

Routine  Check-in 

SON  D  ABC  ADR2  Text 

No-Traffic  Check-in 

SM  E  ABC  ADR3  Text 

Check-in  Table 
Transfer 

Priority  Check-in 
Table  Transfer 

SOH  X  ABC  ADR1ADR2. . . . 

Routine  Check-in 
Table  Transfer 

Y  ABC  ADR3ADR4. .  . . 

No-Traffic  Check-in 
Table  Transfer 

Z  ABC  ADR5ADR6. .  .  . 

Reportback  Message 

1  Priority  Report 

back 

SOH  P  ABC  Text 

Routine  Report 
back 

SOH  R  ABC  Text 

No-Traffic  Report 
back 

SOH  N  ABC  Text 
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SECTION  5 


MICROCOMPUTER  HARDWARE 


The  microcomputer  developed  for  demonstrating  AFSATCOM  polling 
improvements  is  shown  in  the  functional  block  diagram  in  figure  5-1. 
It  consists  of  an  Intel  SBC  80/20  Single  Board  Computer,  a  National 
Semiconductor  Model  BLC  416  16K-byte  programmable  read-only  memory 
(PROM)  board,  an  Intel  Model  450  16K-byte  random  access  memory  (RAM) 
board,  a  power  supply  subsystem,  and  interface/display  logic 
circuitry.  The  SBC  80/20,  RAM,  and  eraseable  PROM  (EPROM)  boards 
are  housed  in  the  Intel  SBC  604  Modular  Cardcage/Backplane  which 
provides  interconnection  for  up  to  four  plug-in  boards.  The  SBC  604 
also  allows  interconnection  of  two  or  more  cardcage  backplane 
assemblies  for  expansion,  in  addition  to  power  supply  > onnectors  and 
signal  line  termination  circuits.  A  small  table-top  It'-inch  modular 
rack  mounting,  shown  in  figure  5-2,  contains  the  cardcage,  along 
with  the  power  supply  subsystem,  slot  selection  and  display 
circuits,  bypass  switches,  test  points,  and  cable  terminations  for 
circuit  connections  to  the  AFSATCOM  System. 


5.1  INTEL  SBC  80/20  SINGLE  BOARD  COMPUTER 

The  Intel  SBC  80/20  Single  Board  Computer  is  the  heart  of  the 
microcomputer  implementation  for  polling  improvements.  It  is  one  of 
Intel's  line  of  computer  products  and  takes  full  advantage  of  large 
scale  integration  (LSI)  technology  to  provide  a  self-contained 
computer  capability  on  a  single  6.75  x  12.00  inch  printed  circuit 
board.  On-board  capability  provides  a  central  processing  unit 
(CPU),  system  clock,  read/write  memory,  nonvolatile  read-only  memory 
(ROM),  I/O  ports  and  drivers,  a  serial  RS-232  communications 
interface,  priority  interrupt  logic,  and  two  programmable  timers. 

In  addition,  on-board  multibus  control  logic  and  bus  expansion 
drivers  allow  interfaces  to  multibus-compatible  boards  including 
expansion  memory,  digital  and  analog  I/O  expansion  boards, 
peripheral  controller,  and  other  single  board  computers.  A  complete 
functional  description  of  the  SBC  80/20  is  found  in  reference  1. 
Details  of  the  SBC  80/20  are  found  in  reference  2.  Table  5-1  lists 
integrated  circuit  (IC)  locations  for  polling  program  storage  on  the 
SBC  80/20. 
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Table  5-1 

EPROM  (2708)  Location  Suminary 


Prom  tf 

1C 

Board 

Start  ADR  (Hex) 

Finish  ADR  (Hex) 

1 

A79 

SBC  80/20 

0000 

03FF 

2 

A6i4 

SBC  80/20 

0400 

07FF 

3 

A51 

SBC  80/20 

0800 

OBFF 

k 

A37 

SBC  80/20 

OCOO 

OFFF 

5 

U33 

BLC  416 

1000 

13FF 

6 

U21 

BLC  416 

1400 

17FF 

7 

U9 

BLC  416 

1800 

1BFF 

8 

U3 

BLC  416 

ICOO 

1FFF 

9 

U3A 

BLC  416 

2000 

23FF 

10 

U22 

BLC  416 

2400 

27FF 

11 

UlO 

BLC  416 

2800 

2BFF 

12 

Ui* 

BLC  416 

2C00 

2FFF 

13 

U35 

BLC  416 

3000 

33FF 

II4 

U23 

BLC  416 

3400 

37FF 

15 

U1 1 

BLC  416 

3800 

3BFF 

16 

U5 

BLC  416 

3C00 

3FFF 
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5.2  NATIONAL  SEMICONDUCTOR  BLC  416  16K  PROM  BOARD 

The  National  Semiconductor  BLC  416  16K  PROM  expansion  board 
provides  sockets  for  up  to  16K  bytes  of  2708  EPROMs  (32K  bytes  for 
2716  EPROMs).  For  the  polling  program,  however,  only  12  of  the  16 
2708  EPROMs  required  for  program  storage  actually  reside  on  this 
board;  the  four  remaining  2708  EPROMs  reside  on  the  SBC  80/20. 

Table  5-1  summarizes  the  physical  locations  of  the  EPROM  program 
storage  for  execution  of  the  polling  software.  Switches  to  either 
enable  or  disable  various  memory  blocks  are  provided  on  this  board 
along  with  jumper-switch  selectable  addresses  for  each  4K  block  (8K 
when  used  with  the  2716  EPROMs).  This  allows  independent  selection 
of  base  addresses  of  individual  memory  blocks  on  4K  byte  boundaries 
Along  with  on-board  programming,  the  BLC  416  provides  multibus- 
compatible  address,  data,  and  command  signals.  Table  5-1  lists  the 
IC  locations  for  polling  program  storage  on  the  BLC  416  PROM  board. 


5.3  INTEL  450  16K  RAM  BOARD 

The  Intel  450  16K  RAM  is  a  multibus-compatible  board  which 
contains  16K  bytes  of  read/write  memory  and  uses  2107C  dynamic 
memory  components  with  on-board  refresh  circuitry  for  all  the 
dynamic  memory  elements.  Read/write  buffering,  which  also  resides 
on-board,  buffers  all  data  written  into  or  read  from  the  memory 
array  and  includes  a  jumper-selectable  starting  address  for  16K 
contiguous  addresses  at  16K  boundaries.  For  the  polling 
application,  the  lowest  RAM  aciress  is  set  at  4000H  and  the  highest 
RAM  address  is  7FFFH. 


5.4  I/O  AND  DISPLAY  CIRCUITS 

Figure  5-3  shows  the  additional  cabling  needed  in  the  Type  12 
CP  terminal  for  interconnecting  the  I/O  and  display  boards  of  the 
microcomputer  system  with  the  AFSATCOM  System.  No  changes  to 
existing  AFSATCOM  interfaces  were  made;  only  cabling  and  connector 
additions  were  employed.  Each  of  the  I/O  and  display  circuits  is 
detailed  below. 


5.4.1  Master  Clock  Generator 

Figure  5-4  shows  the  Master  Clock  Generator  circuit.  This 
circuit  provides  various  gated  75  Hz  clocks  and  associated  signals 
for  both  the  transmit  and  receive  functions  utilizing  a  75  Hz 
reference  input  from  one  of  two  timer  circuits  on  the  SBC  80/20. 
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5.4.2  External  I/O  Interface 

Figure  5-5  shows  the  external  I/O  interface  circuits.  This 
circuitry  provides  the  level  conversion  necessary  to  connect  the 
MIL-STD-188C  interfaces  found  in  the  AFSATCOM  Type  12  terminal  with 
the  complementary  metal-oxide  semiconductor  (CMOS)  and  transistor- 
transistor  logic  (TTL) -compatible  circuits  of  the  microcomputer 
system. 

5.4.3  RX  Character  Clock  Generator 

Figure  5-6  shows  the  RX  character  clock  generator  circuit. 

This  circuitry  provides  synchronous  receive  character  clock  for  the 
MPU  receive  data  interface  normally  supplied  by  the  AFSATCOM  Type  12 
terminal.  The  microcomputer  system  does  not  use  the  RX  character 
clock  signal  supplied  by  the  AFSATCOM  modem.  However,  for  proper 
AFSATCOM  operation,  this  clock  is  reconstituted  and  supplied  to  the 
MPQ  input  circuitry. 


5.4.4  Memory  I/O  Address  Decoder/Acknowledge 

Figure  5-7  shows  the  memory  I/O  address  decoder/acknowledge 
circuit.  Its  primary  function  is  to  generate  select  signals  for 
memory  address  decoding  for  a  pair  of  Motorola  MC6852  serial  data 
adapter  ICs.  These  select  signals,  along  with  the  memory 
acknowledge  signal,  permit  the  ICs  to  be  utilized  as  if  they  were  an 
inherent  part  of  the  SBC  80/20  memory  addressing  space.  Read  or 
write  operations  to  these  devices  then  use  the  memory  addresses 
which  serve  these  two  ICs. 


5.4.5  TX  Character  Deletion 

The  TX  character  deletion  circuit,  shown  in  figure  5-8,  deletes 
two  redundant  message  characters  encountered  with  the  MC6852  IC  used 
in  conjunction  with  the  AFSATCOM  modem  transmit  interface.  Actual 
transmit  character  deletion  takes  place  before  the  start  of 
transmission  to  the  modem  and  occurs  only  during  the  time  interval 
when  the  AFSATCOM  modem  is  in  the  process  of  transmitting  its  own  "W 
U  SYN  SYN"  preamble. 


Figure  5-5  External  I/O  Interface  (Sheet  2) 


Figure  5“6  RX  Character  Clock  Generator  (Sheet  3) 


Menrary  I/O  Address  Decoder/Acknowledge  (Shee 


5.4.6  Modem/MPU-to-SBC  Serial  Data  Adapter 

Figure  5-9  shows  the  modem/MPU-to-SBC  serial  data  adapter 
circuit.  Its  primary  function  is  to  transfer  serial  data  to/ from 
the  AFSATCOM  modem  or  MPU  to/ from  the  SBC  80/20.  The  SBC  80/20 
reads  or  writes  these  data  as  if  they  were  located  in  a  memory 
address.  Selection  of  either  the  modem  1/0  or  MPU  I/O  takes  place 
via  a  register  select  line  with  read/write  operations  controlled 
separate ly . 

The  heart  of  this  circuitry  consists  of  a  pair  of  Motorola 
MC6852  programmable  synchronous  serial  data  adapter  (SSDA)  ICs. 

Each  provides  a  three-character  buffered  bi-directional  serial 
interface  for  synchronous  data  exchange.  The  MC6852  design 
incorporates  bus  interface  logic  to  allow  parallel  data  transfer 
over  the  SBC  80/20  bi-directional  parallel  data  bus.  The  actual 
configuration  of  the  SSDA  is  programmed  via  the  data  bus  using  the 
polling  program  system  initialization  software.  SSDA  internal 
programmable  control  registers  provide  word  length,  transmit, 
receive,  synchronization,  and  interrupt  controls.  Status,  timing, 
and  other  SSDA  control  lines  provide  additional  peripheral  or  modem 
functions . 


5.4.7  SBC  80/20  Interfaces 

Figure  5-10  summarizes  the  I/O  and  display  interfaces  within 
the  microcomputer  system.  Jumpers  and  parallel  terminations 
employed,  along  with  physical  board  modifications  for  the  SBC  80/20, 
are  indicated. 


5.4.8  Slot  Counter/Disp lay 

Figure  5-11  shows  the  slot  counter/display  circuit  interfaces 
to  the  SBC  80/20  and  the  I/O  circuits.  Slot  pulses  from  the 
AFSATCOM  synchronizer  are  used  to  increment  the  slot  display  on  a 
pair  of  Texas  Instruments  TIL  306  ICs  while  the  frame  pulse  from  the 
synchronizer  (or  a  manual  toggle  switch)  provides  a  reset  function 
back  to  zero  slot  indication.  A  pair  of  four-bit  binary  coded 
decimal  (BCD)  output  lines  (8  parallel  lines,  total)  to  one  of  the 
SBC  80/20  parallel  input  ports  is  used  by  the  polling  software  in 
calculating  the  current  AFSATCOM  slot.  As  implemented  in  the 
demonstration  system  software,  zero-slot  indications  signal  the  non- 
TDM  AFSATCOM  mode  and  non-zero  indications  signal  TDM  operation. 
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Figure  5"9  Modem/MPU-to-SBC  Serial  Data  Adapter  (Sheet  6) 


ot  Counter/Display  (Sheet  8) 


5.4.9  RS-232  Serial  Interfaces 


Figure  5-12  summarizes  the  cable  interfaces  employed  with  the 
microcomputer  system  and  made  possible  by  serial  RS-232  interface 
circuitry  which  employs  a  software-programmable  8251  USART  IC  on  the 
SBC  80/20  card.  Shown  are  cable  interfaces  for  use  with  a  Bell  103J 
modem,  a  "NULL"  modem,  a  Lear  Siegler  ADM-3A  CRT  terminal,  and  a 
Texas  Instruments  Model  765  Intelligent  Terminal. 

When  the  polling  software  is  commanded  into  its  RS-232  mode, 
all  messages  normally  routed  to  the  AFSATCOM  MPU  interface  are 
rerouted  to  the  RS-232  serial  interface  port  at  a  300  b/s  rate 
(instead  of  75  b/s).  Messages  destined  for  transmission  to  the 
AFSATCOM  modem  or  COMSUP  commands  normally  originating  at  an 
AFSATCOM  ASR  device  may  now  be  entered  into  this  RS-232  interface. 
While  in  this  mode,  the  AFSATCOM  ASR  may  still  be  used  for  all 
transmitting  functions;  however  normal  reception  from  the  OW  (or 
NB-1)  channel  will  be  diverted  to  this  RS-232  port.  When  not  in  the 
RS-232  mode,  normal  NB  interfaces  to  the  MPU  are  utilized. 


5.5  MODULAR  RACK  HARDWARE  FEATURES 

When  the  microcomputer  rack  assembly  is  installed  in  the  Type 
12  terminal,  two  multi-pole  bypass  switches  mounted  on  the  front 
panel  can  disengage  the  microcomputer  system  from  the  MPU,  NB  modem, 
and  synchronizer  interfaces  without  physical  removal  of  connectors. 
Connector  terminations  on  the  rear  of  the  rack  provide  convenient 
access  for  cables  to  the  AFSATCOM  Type  12  CP  terminal. 

The  modular  rack  assembly  is  designed  for  ease  in  removing  all 
mounted  components  and  subsystems.  Test  points  mounted  on  the  front 
panel  of  the  rack  also  provide  a  convenient  access  to  all  interfaces 
for  ease  in  trouble-shooting.  Front  panel  fuses  on  the  rack  serve 
to  protect  the  various  power  supplies  in  the  power  supply  subsystem. 
An  on-off  power  line  switch  and  a  line  voltage  indicator  are  below 
these  fuses . 

Finally,  a  slot  display  reset  switch  and  eight  BCD  slot 
selection  switches  are  also  front-panel  mounted  for  convenient 
control  of  polling  test  functions  related  to  TDM  and  non-TDM  modes. 
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SECTION  6 


MICROCOMPUTER  SOFTWARE 


Figure  6-1  shows  the  major  elements  of  the  microcomputer 
facility  at  MITRE-Bedford  which  was  used  for  overall  software 
development  for  the  polling  improvement  project.  The  Tektronix 
8002A  software  development  system  and  the  MITRE  Time  Sharing  Option 
(TSO)  system  assets  related  to  polling  software  development  are 
described  below. 

The  microcomputer  software  for  the  improved  polling 
demonstration  capability  was  written  in  PL/M-80  high-level  language 
on  TSO.  The  PL/.M-80  source  coding,  which  is  essentially  self- 
documenting,  takes  advantage  of  modular  interrupt-free,  structured 
programming  techniques  and  attempts  to  minimize  (but  not  entirely 
eliminate)  interactions  between  the  various  modular  segments  of  the 
overall  program. 

After  appropriate  compilation  and  debug  on  TSO,  followed  by 
downloading  to  the  Tektronix  8002A  microprocessor  laboratory, 
executable  code  was  installed  in  the  microcomputer  system  using  2708 
EPROM  non-volatile  memory  ICs.  Execution  of  this  code  in  the 
microcomputer  system  provides  the  processing  functions  needed  to 
satisfy  the  polling  enhancements  described  in  section  4. 


6.1  FLOW  CHARTS 

The  polling  software  for  the  microcomputer  system  is 
functionally  described  by  the  flow  chart  of  figure  6-2.  Following 
power  turn-on  of  the  microcomputer  system,  the  software  executes  the 
Initialization  Sequence,  followed  by  the  main  program  loop  starting 
at  the  Slot  Calculation  Algorithm  and  ending  at  the  TX  Output 
Algorithm.  Return  to  the  Initialization  Sequence  is  also  possible 
by  means  of  a  software  re-initialization  COMSUP  command.  Unless  the 
software  is  re-initialized,  however,  normal  program  execution 
continues  in  this  endless  loop.  The  time -to -comp let ion  of  a  single 
cycle  within  this  loop  is  typically  less  than  a  single  character 
interval  at  the  AFSATCOM  75  b/s  rate.  Coupled  with  this  capability 
is  a  three-character  buffer  in  the  serial  synchronous  MPU  and  modem 
interfaces  employed  for  use  with  the  AFSATCOM  hardware  (see 
subsection  5.4.6)  which  avoids  loss  of  data  during  program  execution 
in  an  interrupt-free  manner. 
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gure  6-1  Microcomputer  Development  Facility 


Figure  6-2  Polling  Software  Program  Flowchart 


Table  6-1  describes  the  various  program  modules  along  with 
their  major  performance  characteristics  during  program  execution. 
The  polling  algorithm  is  the  heart  of  the  overall  polling  program 
software;  a  more  detailed  flow  chart  of  this  polling  algorithm  is 
provided  in  figure  6-3. 


6.2  PL/M-80  SOURCE  CODE  AND  MEMORY  ALLOCATIONS 

Table  6-2  contains  the  improved  polling  software  symbol  table 
and  memory  map  which  identifies  RAM  and  ROM  (EPROM)  label  locations, 
variables,  and  constants  used  throughout  the  software.  This  table 
is  consistent  with  the  program  module  PL/M-80  labels  shown  in  table 
6-1  and  the  address  locations  in  table  5-1  so  that  the  start  of  each 
major  program  module  may  be  readily  identified.  This  also  allows 
ease  in  modifying  or  upgrading  existing  software  by  appropriate 
EPROM  replacement  within  the  microcomputer  system.  Appendix  B 
contains  the  actual  PL/M-80  source  code  which  was  written  on  TSO. 


6.3  MITRE  TSO  SYSTEM  PL/M-80  SUPPORT 

PL/M-80  assets  available  on  TSO  which  were  utilized  for  the 
microcomputer  software  development  are  described  below. 


6.3.1  PL/M-80  High  Level  Language 

PL/M-80  is  an  advanced  high  level  programming  language 
available  on  the  MITRE  TSO  system.  Specifically  designed  to 
simplify  the  job  of  system  programming  for  the  Intel  8080  8-bit 
microprocessor,  it  provides  a  very  effective  software  development 
and  maintenance  tool,  well  suited  to  the  requirements  of  the 
microcomputer  system  designer.  PL/M-80  is  also  easy  to  learn  and 
facilitates  rapid  program  development  and  debugging  since  it  is  an 
algorithmic  language  in  which  the  program  consists  of  a  sequence  of 
declarations  and  executable  statements  naturally  expressing  the 
algorithm  to  be  performed.  Thus,  the  programmer  is  free  to 
concentrate  on  system  development  through  use  of  modern  structured 
programming  techniques  at  a  high  level,  rather  than  dealing  with 
assembly  language  details  (such  as  register  allocation,  etc.).  For 
a  complete  description  of  PL/M-80  see  reference  3. 


6.3.2  PL/N-80  2-Pass  Cross-Compiler 

The  8080  PL/M  cross-compiler  consists  of  two  distinct  programs 
which  must  be  executed  consecutively  to  perform  a  complete 
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Program  Software  Module  Description 


depending  on  which  is  activated;  shifts  down  internal 
storage  buffer  upon  completion  of  message  transmittal 
enables  clock  output  to  MPU  on  start  of  message 
transmittal  and  disables  it  on  completion. 
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Figure  6-3  Polling  Algorithm  Flowchart 


Table  6-2 


Symbol  Table  and  ’lemory  Map 


Name 

Location  (Hex) 

Name 

Locat i on  (H 

ADRl 

4638 

CLK3 

4662 

ADR2 

4639 

CLKCNT 

5792 

ADR3 

463A 

CLKCNTl 

4664 

ADRCHANGE 

1B80 

CLKCNT 2 

4666 

ADRERRORl 

1D67 

CLKCNT 3 

4668 

ADRERRORHDR 

037C 

CLKP 

579A 

AUTOPOLLRESTART 

0611 

CLKPl 

465E 

AUTOREPOLL FLAG 

4684 

CLKP  2 

4661 

BUFFERDELAY 

579C 

CLKP  3 

4663 

BUFFERDELAYl 

466A 

CMODE 

6661 

CC 

6668 

CMOOiXANCEL 

0099 

CCl 

5760 

CMODECANCELl 

ODFC 

CCPRESENT 

4658 

COMPOSEl 

17FF 

CCIPRESENT 

465A 

COMSUPLOADl 

296F 

CCTEST 

0B25 

CS 

5775 

CHAR 

5776 

CSl 

4688 

CHARI 

4689 

CS3 

464A 

CHAR3T 

0998 

CS4 

464B 

CHAR4T 

09B1 

CSOATAPOINTER 

5764 

CHAR4T1 

166B 

CSIOATAPO INTER 

576C 

CHAR5T 

09CA 

CSTEST 

0B13 

CHARSTORE 

5D64 

OELAY 

579B 

CHARSTOREl 

468E 

OELAYl 

465F 

CHECKINDELETE 

247A 

OELAYCAL 

1D3A 

„HECKiNMODESETl 

2805 

DELAYROUTINE 

1442 

CINUMTEST 

0076 

DELAYROUTINEl 

0307 

CLK 

5799 

EATMSGl 

1773 

CLKl 

4650 

EATMSGFLAGl 

465C 

CLK  2 

4660 

EATMSGSET 

1AF3 

Table  6-2  (continued) 


Name 

Local i on 

EDACFLAG 

4656 

EDACMODESET 

1B4A 

EDA GROUT INE 

0A33 

ENC 

5777 

ENCRYPT 

0937 

ENCTEST 

0904 

ENDLOAD 

3833 

EOMTEST 

13E0 

EOMTESTl 

3D3F 

ERRORHDR 

039A 

GC 

08BD 

GCl 

1614 

GCIPOINTER 

578C 

GCIRESET 

2960 

GCI STORE 

5C23 

GPOLLBUILDl 

3C92 

GTl 

2278 

GTABLEBUILDl 

3548 

GTABLEDUMPl 

34C1 

GTDHEADER 

0362 

I 

6662 

11 

575a 

INITIALMSG 

0461 

IPLTEST 

1915 

IPOLLl 

04  BF 

IPOLLll 

087C 

I POLL 101 

15A8 

IPOLLlOll 

15D4 

INPUT3DATAPOINTER 

5766 

Name  _Locat ion  (Hex) 


1NPUT5DATAPOINTER 

5768 

INPUT103DATAP0INTER 

576E 

INPUT105DATAPOINTER 

5770 

J 

5762 

LCT 

09E0 

LCTl 

1685 

L INECOUNT 

468D 

LOADADR 

37A1 

MEMORY 

7400 

MJF 

5778 

lUTl 

09  3E 

MJT2 

0AC7 

MODE 

5779 

MODEERRORl 

2A08 

MODEMIOCTLIPOINTER 

4632 

MODEMIOCTL2POINTEk 

4634 

MODEMOUTPUTCOMPOSEl 

1700 

MODEMOUTPUTCOMPOSE2 

1783 

MPUCINUMTESTl 

2824 

MPUIOCTLIPOINTER 

462E 

MPUIOCTL2POTNTER 

4630 

mputablebuild 

0E58 

MSGCOUNT 

6534 

MSGCOUNTl 

4E5E 

MSGDELAY 

579E 

msgoverdelay 

4672 

N 

577C 

NC 

5786 

NCIHEADER 

02CD 

Table  6-2  (continued) 


Name 

Location  (Hex) 

Name 

Location  (Hex) 

NCIPOINTER 

5790 

OPOLLl 

13BB 

NCIRESET 

2945 

OPOLLlOl 

3D1A 

NCI STORE 

5PJi2 

OUTl 

468a 

NCITEST 

0CC8 

OUTCHAR 

148C 

NOCOMS UPLOAD 1 

29FD 

OUT CHARI 

3EA7 

NONTDMDELAYl 

3DF6 

OUTCOUNT 

6666 

NONTDMDELAYSET 

1CD2 

OUT FLAG 1 

1680 

NONTDMMSGDELAYl 

466C 

OUTPUTCOMPOSE 

16CF 

NONTDMPOLL 

0622 

OUTPUT IDATAPOl NTER 

576A 

NPOLLBUILDl 

3C12 

OUTPUTIOIDATAPOINTER 

5772 

NRBHEADER 

02E1 

OUTTABLE 

666B 

NRBLOAD 

0F9A 

OUTTABLEl 

4F8A 

NTl 

2201 

OUTTABLEBUILD 

0E64 

NTABLEBUILDl 

339B 

OUTTABLE ISTATUSTEST 

05E9 

NTABLEDUMPl 

3314 

OVERFLOWl 

2847 

NTDHEADER 

0343 

OVERFI-OW2 

284C 

NTDMDEIAlYH 

467C 

OVERFLOWHDR 

03D9 

NTDMDELAYL 

^61E 

PCIHEADER 

0241 

NTDMEDACTABLE 

464F 

PCIPOINTER 

5784 

NTDMPOLLI NTERRUPTFLAG 

4686 

PCI  RESET 

292D 

NTTHEADER 

02F5 

PC I STORE 

57AO 

NTTLOAD 

1278 

PCITEST 

OB43 

NTTLOADl 

200A 

POLLDUMPBUILDl 

372F 

NTTLOADEND 

1348 

POLLDUMPHDR 

03F4 

NTTRl 

2CEB 

POLLFLAG 

4683 

NUMGCI 

577E 

POLLINGMODETEST 

05FF 

riuirici 

578E 

POLLINTERRUPT 

1C5B 

'UBIPCI 

5732 

POLLMODE 

1BB4 

'RmCI 

5783 

POLLMODEERROR 

0550 

57 


Table  6-2  (continued) 


r 


4. 


I* 


( 


L' 

► 


h 


*♦* 


JT- 


Name 

Location  (Hex) 

Name 

Location  (Hex 

POLLMSGCOMPLETE 

0580 

PTABLEBUILDl 

3042 

POLLMSG COUNT 

464C 

PTABLEDUMPl 

2FBB 

POLLMSGOVER 

0410 

PTl COUNT 1 

73FE 

POLLOVERTEST 

0558 

PTDHEADER 

030A 

POLLPOINTERl 

73FC 

PTTHEADER 

02E5 

POLLSLOTIH 

463B 

PTTEOAD 

0FF3 

POLESLOT2H 

46  3C 

PTTLOADl 

1E3D 

POLLSLOT3H 

46  3D 

PTTLOADEND 

10C2 

POLLSLOT4H 

463E 

PTTRl 

2B45 

POUSLOT5H 

463F 

QUIT 

3FAB 

POLLSLOT6H 

4640 

RCl HEADER 

02C9 

POLLSLOTIL 

4641 

RCIPOINTER 

578a 

POLLSLOT2L 

4642 

RC I  RESET 

29  3E 

POLLSLOT3L 

4643 

RC I STORE 

5921 

POLLSLOT4L 

4644 

RCITEST 

0C05 

POLLSLOT5L 

4645 

REPOLLFLAGCOUNT 

4657 

POLLSLOT6L 

4646 

REPOLLTEST 

0572 

POLLTABLEl 

6E3B 

RETRANSMITFLAG 

4676 

POLLTABLEBUTLDI 

3B34 

RETRANSMITFLAGSET 

oaad 

POLLTABLEDUMPl 

36B1 

RPOLLBUILDI 

3B96 

POLLTABLEDUMP2 

366E 

RRBHEADER 

02DD 

POLLTABLETX 

3A3E 

RRBLOAD 

0F41 

POLETABLETXELAG 

4685 

RS232FLAG 

4637 

POLLTTRl 

2DBE 

RS232GC1 

1610 

POLLK’^IT 

0530 

RS232INPUT1 

L5B9 

PRBHEADER 

02D1 

RS232MODESET 

lABD 

PRBLOAD 

0EE8 

RS2320UTCHAR 

14B1 

PROGRAMSTART 

0007 

RS232SPACETEST 

1427 

PTl 

2114 

RTl 

218a 

S£ 
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Table  6-2  (concluded) 


Name 

Location  (Hex) 

Name  Locati 

ion  (Hex) 

RTABLEBUILDl 

31EE 

TCLK 

466F 

RTABLEDUMPl 

3167 

TCLKl 

4673 

RTDHEADER 

0327 

TCLKCNT 

4671 

RTTHEADER 

02F1 

TCLKCNTl 

4675 

RTTLOAD 

1135 

TCLKP 

4670 

RTTLOADl 

1F23 

TCLKPl 

4674 

RTTLO ABEND 

1205 

TDMDELAYROUTINEl 

3DB3 

RTTRl 

2CL8 

TDMFLAG 

4682 

RXBUSYOVERRIDEl 

3E60 

TDMPOLL 

0739 

SHIFT DOWN 

14C8 

TDMPOLLINTERRUPTFLAG 

4687 

SHIFTDOWNl 

3EC2 

TDMPOLLTXSLOT 

4677 

SLOT 

A67A 

TDMPOLLTXSLOTINITIAL 

4649 

SLOTCOUNT 

467B 

TFRERRORl 

2E7B 

SLOTGUARDTIME 

4680 

TFRERRORHDR 

03B8 

SLOTH 

4678 

TOTALNUMCI 

5780 

SLOTL 

4679 

TTLOADENDl 

20F1 

SLOTREASSIGN 

19AD 

TTRl 

2A94 

SPACE 

5778 

TXSLOTINITIALH 

4647 

SPACEl 

468c 

TXSLOTINITIALL 

4648 

SPACETEST 

1401 

WAITING 

577A 

SPACETESTl 

03D5 

WAITINGl 

468B 

ST 

0916 

WW 

08A7 

STARINSERT 

OBIC 

XX 

089B 

STARTUPMSG 

04  2E 

YY 

15F2 

TBLDUMPl 

2EE1 

Z7. 

15FE 

TC 

6664 

TCl 

575C 

TCINITIAL 

5794 

TCIINITIAL 

5796 
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compilation  of  a  PL/M  source  program.  The  two  programs  are  known  as 
Pass  1  (PL/M-81)  and  Pass  2  (PL/M'82)  of  the  PL/M  compiler.  They 
are  written  in  ANSI  standard  Fortran  IV  and  are  installed  on  the 
MITRE  TSO  system. 

The  first  pass  of  the  compiler  reads  a  PL/M  source  program  and 
converts  it  to  an  intermediate  form  on  work  files.  As  an  option,  a 
listing  of  the  input  source  program  may  be  obtained  during  this 
pass.  Errors  in  program  syntax  are  detected  at  this  stage  and 
appropriate  error  messages  are  sent  to  the  list  file. 

The  second  pass  of  the  PL/M  compiler  processes  the  intermediate 
files  created  by  Pass  1  and  generates  machine  code.  This  machine 
code,  which  can  be  in  either  B.NPF  or  hex  format,  may  be  loaded  and 
executed  on  the  SBC  80/20  microcomputer,  on  the  Tektronix  8002A,  or 
simulated  using  IN'TERP/80,  a  cross-simulator  of  the  8080  micro¬ 
processor  unit.  It  may  also  be  used  for  programming  ROMs.  Pass  2 
of  the  compilation  process  can  produce  a  symbol  table  and  mnemonic 
listing  of  the  generated  machine  code.  Errors  detected  during  this 
phase  will  be  reported  in  the  list  file  which  is  produced. 

Figure  6-4  illustrates  the  overall  file  structure  and  flow  of 
program  execution  of  the  PL/M  cross-compiler  available  at  MITRE. 

For  a  complete  description  of  the  PL/M-80  2-pass  cross-compiler  see 
reference  4. 

The  run-time  organization  of  the  memory  storage  allocation  for 
a  compiled  PL/M-80  object  program  is  shown  in  figure  6-5.  Memory  is 
allocated  in  three  sections; 

1.  Instruction  Storage  Area  (ISA). 

2.  Variable  Storage  Area  (VSA) 

3.  Free  Storage  Area  (FSA) 

The  ISA  is  occupied  by  the  machine  code  generated  by  the  PL/M 
source  and  variables  declared  in  DATA  declarations. 

The  VSA  is  located  above  the  ISA,  and  contains  (in  order  of 
decreasing  address); 

1.  Variables,  other  than  DATA  variables,  declared  in  the 
PL/M  source.  They  are  arranged  in  order  of  declaration. 
ADDRESS  variables  are  not  aligned. 

2.  Compiler  generated  temporaries  (i.e.,  workspace  used  in 
the  object  program,  but  not  explicitly  declared). 
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Figure  6-4  File  Structure  and  Flow  of  Program 

Execution  on  8080  PL/M  Cross  Compiler 
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Figure  6-5  Run-Time  Storage  Organization  of 
Memory  Storage  Allocation 
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3. 


The  stack.  The  size  of  the  stack  area  is  determined  by 
the  compiler,  unless  explicit  overrides  are  used. 

The  compiler  will  normally  locate  the  VSA  directly  above  the 
ISA.  However,  the  compiler  user  may  specify  the  first  page  of 
memory  of  the  VSA  explicitly.  (A  page  of  memory  contains  256 
bytes.)  This  may  be  used,  for  example,  to  ensure  that  the  VSA  is 
located  in  RAM  for  a  system  that  has  both  RAM  and  ROM. 

FSA  is  the  area  of  memory  above  the  VSA.  The  PL/M  identifier 
M’’.MOP.Y  may  be  used  to  reference  the  FSA. 


6.3.3  INTERP/80  for  the  8080  Microprocessor 

An  INTERP/80  program  available  on  the  MITRE  TSO  system  provides 
a  software  simulation  of  the  Intel  8080  CPU,  along  with  "free  form" 
execution  monitoring  commands  to  aid  in  system  software  development 
for  8080-based  microcomputers. 

INTERP/80  accepts  machine  code  produced  by  the  PL/M  8080  cross- 
compiler,  along  with  execution  commands  from  a  time-sharing 
terminal.  The  execution  commands  allow  manipulation  of  the 
simulated  system  memory  and  the  8080  CPU  registers.  In  addition, 
operation  and  instruction  break-points  may  be  set  to  stop  execution 
at  crucial  points  in  the  program.  Tracing  features  are  available 
which  allow  the  CPU  operation  to  be  monitored.  INTERP/80  also 
provides  symbolic  reference  to  memory  storage  locations  as  well  as 
numeric  reference  in  various  number  bases.  Some  of  the  commands 
available  in  INTERP/80  are  presented  in  table  6-3.  For  a  complete 
description  of  INTERP/80,  see  reference  5. 


6. A  TEKTRONIX  8002A  SOFTU’ARE  DEVELOPMENT  SYSTEM 

The  heart  of  the  Tektronix  software  development  system  is  the 
Tektronix  8002A  microprocessor  laboratory.  The  system  architecture 
of  the  Tektronix  8002A  centers  around  three  microprocessors 
incorporated  into  circuit  card  modules.  The  system  processor,  using 
TEKDOS  operating  system  commands,  controls  system  activity  such  as 
organizing,  storing,  and  retrieving  system  and  user  programs  on  the 
disc  drives,  executing  the  text  and  debug  programs,  supervising  the 
emulator  processor  through  separate  debug  hardware,  and  directing 
all  I/O  activity  for  various  system  peripherals  such  as  the  flexible 
disc  unit,  the  system  terminal,  and  a  line  printer.  See  figure  6-6 
which  shows  the  8002A  microprocessor  laboratory  used  in  conjunction 
with  the  Intel  SBC  80/20  single  board  computer. 
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Table  6-3 


INTERP/80  Commands 


Command  Function 

LOAD  Causes  symbol  tables  and  code  to  be  loded  into 

the  simulated  MCS-80  memory. 

GO  Starts  execution  of  the  loaded  8080  code. 

(NO)  INTER  Simulates  an  8080  interrupt. 

TIME  Sets  and  displays  the  simulated  8080  cycle  counter. 

CYCLE  Allows  the  simulated  CPU  to  be  stopped  after  a  given 

number  of  cycles. 

(NO)  TRACE  Enables  tracing  feature  when  particular  portions 
of  the  program  are  executed. 

(NO)  REFER  Causes  the  CPU  simulation  to  stop  when 

a  particular  storage  location  is  referenced. 

(NO)  ALTER  Causes  the  CPU  simulation  to  stop  when  the  contents 
of  a  particular  memory  location  are  altered. 

CONV  Displays  the  values  of  numbers  coverted  to  the 

various  number  bases. 

DISPLAY  Displays  memory  locations,  CPU  registers,  symbolic 

locations,  and  I/O  ports. 

SET  Allows  the  values  of  memory  locations,  CPU  registers, 

and  I/O  ports  to  be  altered. 

BASE  Allows  the  default  number  base  used  for  output  to  be 

changed . 

(NO)  INPUT  Controls  simulated  8080  input  ports. 

(NO)  OUTPUT  Controls  simulated  8080  output  ports. 

PUNCH  Causes  output  of  machine  code  in  BPNF  or  hexadecimal 

format . 

END  Terminates  execution  of  an  8080  program. 
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The  emulator  processor,  a  system  option  for  each  microprocessor 
the  8002A  can  support,  is  controlled  by  the  system  processor.  Via 
the  debug  module  hardware,  the  emulator  processor  performs  two 
functions.  In  emulation  mode  0,  this  processor  executes  the  user 
program  so  that  run-time  and  logic  errors  can  be  detected  before 
actual  software/hardware  integration  begins.  In  emulation  modes  1 
and  2,  the  emulator  processor,  operating  in  conjunction  with  the 
prototype  control  probe,  provides  the  capabilities  for  complete 
software/hardware  debugging  and  integration.  The  control  probe 
plugs  into  the  microprocessor  socket  on  the  prototype  circuit  board, 
thereby  enabling  the  emulator  processor  to  take  the  place  of  the 
actual  microprocessor  that  ultimately  is  installed  in  the  user 
hardware.  In  emulation  mode  1,  the  emulator  processor  executes  the 
user  program  under  supervision  of  the  debugging  system  in  program 
memory  and  memory  mapped  to  the  prototype.  I/O  and  clock  signals 
are  also  available  to  the  user  hardware.  In  emulation  mode  2,  the 
emulator  processor  executes  the  user  program  fully  in  the  prototype 
hardware  with  all  memory,  I/O,  and  clocking  functions  made 
available.  The  debug  system,  however,  still  maintains  control  of 
the  emulator  processor. 

The  third  microprocessor,  the  assembler,  runs  the  relocatable 
macro  assembly  program  when  the  TEKDOS  assembly  command  is  invoked. 
Upon  completion  of  assembly,  assembled  object  code  is  stored  on  disc 
memory  in  hexadecimal  format.  The  assembler  performs  its  function 
for  each  separate  microprocessor  supported  by  the  8002A  with  the 
installation  of  the  appropriate  assembler  software. 

Other  circuit  card  modules  within  the  8002A  provide  supporting 
software  and  hardware  functions.  The  system  memory  contains  16K 
bytes  of  dynamic  RAM  and  a  bootstrap  loader  resident  in  256  bytes  of 
ROM  and  is  accessed  only  by  the  system  processor.  The  system  memory 
is  automatically  loaded  with  the  resident  portions  of  TEKDOS  each 
time  the  8002A  system  is  powered  up.  It  also  provides  buffer  space 
for  all  I/O  activities. 

A  maximum  of  64K  bytes  of  program  memory  resides  on  separate 
circuit-card  modules  within  the  8002A  mainframe  and  can  be  accessed 
by  the  system  processor  or  the  emulator  processor.  Program  memory 
is  used  by  the  system  processor  as  a  text  buffer  during  text  editing 
sessions  and  is  available  during  user  program  execution  as  a  storage 
area  in  conjunction  with  the  emulator  processor.  The  feature  of 
separate  system/program  memory  structure  allows  the  system  memory  to 
maintain  its  integrity  at  all  times  should  the  program  crash  for  any 
reason,  thus  allowing  the  operating  system  software  to  remain 
intact. 
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System  components  within  the  8002A  are  joined  by  a  common 
system  bus  which  is  divided  into  a  system  side  and  a  program  side. 
The  debug  module  provides  the  hardware  interface  between  the  system 
and  emulator  processors  while  the  system  communications  module 
provides  EIA  standard  RS-232C  interfaces  for  all  peripheral  devices 
except  the  dual  flexible  disc  drive  unit  and  the  associated  system 
terminal . 

Storage  of  about  660K  bytes  on  dual  disc  drives  (330K  bytes  per 
single-sided  disc)  is  available  as  the  mass  storage  medium  for  the 
8002A.  The  drive  unit  communicates  directly  with  the  system 
processor  module  through  an  interconnecting  cable. 

The  real-time  trace  module,  an  eight-clip  test  probe,  and  the 
data  acquisition  interface  panel  make  up  the  real-time  prototype 
analyzer  of  the  8002A.  The  module  provides  a  high-speed  buffer 
memory  capable  of  retaining  128  data  words  in  a  dynamic  fashion. 

Each  acquired  word,  composed  of  48  bits,  contains  16  address  bits, 
eight  of  16  bits  from  the  system  bus,  and  eight  data  bits  from  the 
test  probe.  An  additional  eight  bits  identify  the  type  of  cycle 
such  as  read,  write,  I/O  memory,  or  instruction  fetch.  The  module 
also  contains  the  controlling  logic  circuitry  for  utilizing  the 
analyzer's  command  repertoire.  The  test  probe  itself  is  an  eight- 
pin,  high- input  impedance  device  which  may  be  connected  during 
emulation  modes  1  and  2  to  any  locations  on  the  user  prototype 
hardware.  Fixed  TTL  or  variable  threshold  levels  are  switch- 
selectable  on  the  interface  unit,  with  acquired  data  buffered  by  the 
probe  and  then  fed  to  the  real-time  trace  module  via  the  cable 
interface.  Data  acquired  by  the  trace  module  and  the  eight  channels 
of  externally  acquired  data  are  thus  subject  to  the  same  TEKDOS 
command  set  of  the  8002A.  Finally,  two  BNC  connectors  on  the  data 
acquisition  interface  can  also  be  used  to  trigger  a  logic  analyzer 
or  scope,  thereby  allowing  greater  trouble-shooting  capability  of 
prototype  circuitry  during  program  execution  while  maintaining 
debugging  control  through  the  8002A. 

The  PROM  programmer  within  the  8002A  can  support  two  PROM 
programming  options,  one  for  1702A  PROMs  and  one  for  2704/2708 
PROMs.  Each  option  consists  of  the  appropriate  plug-in  circuit  card 
and  PROM  programming  software  to  supervise  and  control  the  transfer 
of  user  programs  between  program  memory  and  the  PROM  chip. 

Interface  to  the  PROM  programmer  is  on  the  front  panel  of  the  8002A 
system  mainframe,  via  zero-insertion-force  sockets. 

The  ability  of  the  8002A  to  communicate  with  external  host 
processors  provides  the  flexibility  of  writing  software  externally 
to  the  8002A  and  downloading  either  source  program  or  source  code. 
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This  is  particularly  useful  when  high-level  language  support  is 
separately  available,  as  is  the  case  on  the  MITRE  TSO  system. 

In  summary,  the  8002A  is  a  complete  design  tool  for  software 
development  to  eventual  software/hardware  integration.  Its  powerful 
operating  system  software,  TEKDOS,  performs  all  utility  routines, 
maintains  the  debugging  system,  provides  emulation  support  routines, 
and  controls  the  PROM  programmer.  The  8002A  can  support  a  variety 
of  currently  available  8-bit  and  16-bit  microprocessors  and  offers 
full  prototype  test  and  emulation  capability  at  three  progressive 
levels . 
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SECTION  7 


CONG LESIONS/ RECOMMEND AT IONS 


The  results  of  the  improved  polling  project  described  lead  to  the 
following  conclusions  and  recommendations: 

•  Microcomputer  interfacing  techniques  offer  a  powerful  technique 
for  simulating  new  AFSATCOM  satellite  terminal  polling  perfor¬ 
mance  capabilities. 

•  This  successful  microcomputer  application  was  attributable  to 
availability  and  acquisition  (where  necessary)  of  comprehensive 
computer  hardware  facilities  and  high-level  language  software 
tools  designed  to  support  personnel  having  little  or  no  back¬ 
ground  in  microprocessor-based  techniques.  Without  these  facil¬ 
ities  and  tools  several  additional  personnel,  particularly  ex¬ 
perienced  programmers,  would  have  been  required. 

•  Polling  improvements  using  existing  AFSATCOM  terminal  interfaces 
via  MPU  .software-only  changes  appear  to  offer  significant  new  en¬ 
hancements  to  a  large  segment  of  the  AFSATCOM  user  community. 

•  Providing  an  on-line  access  to  demonstrate  these  potential  capa¬ 
bilities  to  AFSATCOM  users  without  the  need  to  modify  either 
AFS.ATCOM  hardware  or  software  has  proven  to  be  cost-effective. 
This  concept  should  be  pursued  in  accordance  with  the  follow-on 
demonstration  objectives/plans  described  below. 

•  The  microcomputer  concept  and  approach  described  appears  to  also 
lend  itself  to  other  similar  applications.  The  fully  established 
facilities  and  proven  software  support  tools  for  AFSATCOM  at 
'iITRE-Bedford  should  be  used  in  the  assessment  of  future 
terminal  upgrades. 

•  The  feasibility  of  serially  adding  microcomputer  hardware  to  an 
existing  AFSATCOM  terminal  for  achieving  growth  capability  has 
been  demonstrated.  With  further  development  and  suitable  quali¬ 
fication  of  this  additional  hardware,  modifying  existing  MPU 
software  may  be  unnecessary. 

The  microcomputer  system  as  presently  configured  is  capable  of 
operator  interface  via  the  RS-232  serial  I/O  port  of  its  internal 
SBC  80/10  computer.  Using  this  port,  a  Texas  Instruments  Model  765 
Intelligent  Terminal  and  a  Lear  Siegler  ADM-3A  cathode  ray  tube 
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(CRT)  terminal  were  successfully  interfaced,  both  locally  and  over 
telephone  landlines,  using  a  Bell  103J  modem.  Thus,  a  remotable  I/O 
capability  has  been  provided  with  commercial  off-the-shelf  hardware. 

The  use  of  such  a  remoting  capability  makes  future  demonstration 
testing  of  polling  improvements  possible  from  any  location  having 
access  to  a  telephone  landline  circuit  and  avoids  the  need  to 
physically  relocate  the  breadboard  microcomputer  from  its  interface 
at  MITRE-Bedford  to  its  collocated  AFSATCOM  Type  12  CP  terminal. 

Specific  follow-on  demonstration  and  evaluation  objectives  are 
derived  from  key  issues  related  to  incorporating  polling 
improvements  into  the  AFSATCOM  System.  Some  of  these  objectives 
are : 

•  Evaluate  the  operational  suitability  of  improved  polling 
capabilities . 

•  Evaluate  the  enhancements  resulting  from  improved  polling 
in  relation  to  performance  of  the  AFSATCOM  mission. 

•  Test  and  evaluate  the  effectiveness  of  the  improved  polling 
capabilities,  including  the  operator-terminal  interface,  in 
passing  message  traffic  between  terminals  netted  in  various 
poll ing  modes . 

•  Test  and  evaluate  the  adequacy  of  the  microcomputer 
hardware/software  to  support  the  overall  objectives. 

•  Demonstrate  the  potential  role  of  improved  polling  capabil¬ 
ities  to  all  concerned  agencies,  using  hands-on  hardware/ 
software . 

•  Develop  a  successful  test-bed  for  simulating  future  AFSATCOM 
hardware/software  polling  improvements  and  for  investigating 
other  related  areas. 

•  Obtain  data  and  operating  experience  for  an  eventual  upgrade 
of  the  AFSATCOM  operations  concept. 

The  improved  polling  test  objectives  cited  will  be  fulfilled  through 
three  test  categories.  These  are: 

•  Demonstration  of  functional  interface  capabilities 

•  Terminal  performance  tests 

•  Network  tests 
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The  first  category  will  show  the  basic  interface  capabilities 
and  inherent  limitations  of  the  as-designed  microcomputer 
hardware/sof tware  in  the  AFSATCOM  environment.  The  second  and  third 
categories  will  quantify  the  effectiveness  and  suitability  of  the 
polling  improvements  at  the  terminal  and  network  levels  and  obtain 
an  estimate  of  actual  polled  network  behavior  in  an  operational 
environment.  This  follow-on  demonstration  can  be  conducted  using 
the  microcomputer  hardware/software  and  the  AFSATCOM  Type  12  CP 
terminal  located  at  MITRE-Bedford .  This  demonstration  can  be 
performed  jointly  by  MITRE  and  Air  Force  personnel. 
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APPENDIX  A 


BASELINE  DESCRIPTION  OF  THE  AFSATCOM  ROLL  CALL  POLLING  MODE 


All  Air  Force  Satellite  Communications  System  (AFSCS)  terminals 
can  provide  two-way  teletypewriter  (TTY)  record  communications  using 
frequency  shift  keying  (FSK)  modulation  at  a  75  bits  per  second  (b/s) 
serial  rate  over  standard  ultra  high  frequency  (UHF)  channels.  The 
Roll  Call  Polling  mode  is  one  of  four  modes  possible  on  the  narrow- 
band  FSK  channels;  the  other  modes  are  Random,  TDM-1,  and  TDM-2. 


A.l  ROLL  CALL  POLLING  SYSTEM 

Polling  may  be  conducted  on  either  half-duplex  or  full-duplex 
circuits  and  requires  both  a  Net  Control  Station  (NCS)  and  network 
discipline.  The  NCS  transmits  Poll  Call  messages  to  each  pollable 
automatic  send/receive  (ASR)  unit  in  the  network.  Each  ASR,  when 
polled,  is  given  a  30-second  period  of  time  in  which  to  transmit  a 
precomposed  response  to  the  NCS.  When  individual  ASRs  are  in  the 
poll  mode,  they  are  inhibited  from  transmitting  unless  they  are 
polled. 

Roll  Call  Polling  is  initiated  by  a  command  post  (CP)  terminal. 
Force  terminals  reply  through  use  of  a  stored  message  buffer  in  the 
ASR  containing  the  previously  prepared  response.  Poll  inquiry  is 
then  possible  when  the  polling  function  is  selected  at  the  ASR 
device. 

When  the  CP  message-processor  generated  poll  inquiry  is  detected 
at  the  polled  terminal  through  use  of  a  unique  code  sequence 
peculiar  only  to  that  particular  terminal  or  ASR,  the  precomposed 
message  is  transmitted  back  to  the  CP  terminal.  Roll  Call  Polling 
is  structured  so  that  the  CP  NCS  queries  each  terminal  in  the  polling 
net  in  sequence  and  each  polled  terminal  replies  only  upon  detection 
of  its  own  unique  code. 

The  Roll  Call  message  from  the  CP  NCS  is  unclassified  and 
structured  as  shown  in  table  A-1  and  table  A-2. 


73 


Table  A-1 


Roll  Call  Message  Format 


UUU,  SOH,  N,  Aj,  A2,  ky  ETX 

Address  Characters*  where  N  =  variable  mode  character** 


Address  Header 


*  A^  designates  the  particular  super  group. 

A2  and  A^  designate  the  particular  group. 

Aj^  and  A2  and  A^  designate  the  particular  member. 

**  The  mode  character  found  in  the  message  address  header  is 

signified  by  the  variable  H  representing  address  header  codes. 

Selective  Inquiry  message  structure  is  closely  related  to  Poll 
Call  message  structure  and  differs  only  by  the  change  to  the 
variable  found  in  the  mode  character. 

The  address  portion  of  Selective  Inquiry  messages  is  similar  to 
the  Poll  Call  message  and  consists  of  an  SOH  character  denoting 
start-of-header  and  signifying  that  the  next  four  characters  are  an 
address  header.  The  first  character  following  the  SOH  is  the  mode 
character  whose  codes  are  represented  in  table  A-2.  It  should  be 
noted  that  only  when  the  mode  character  is  0  does  it  denote  that  the 
message  is  a  Poll  Call. 


Table  A-2 

Address  Header  Codes 


N  =  Mode 
0 
1 
2 
3 


Function 
Poll  Call 
Super  Group  Call 
Group  Call 
Individual  Call 


Selective  Inquiry  Modes 
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An  All  Call  mode,  denoted  by  no  address  header,  is  accomplished 
by  omission  of  the  SOH  designator,  the  mode  character,  and  the  three 
address  designation  characters. 

The  three  address  designator  characters  (second,  third,  and 
fourth  characters  following  the  SOH)  use  three  hexadecimal  digits 
(0-9,  A-F)  for  Aj^,  A2,  and  A^  and  result  in  4096  possible  addresses. 

Each  pollable  device  in  the  network  must  have  a  unique 
programmed  address.  This  address  is  manually  inserted  into  the  ASR 
via  thumbwheels  and  must  be  part  of  the  Poll  Call  message.  If  there 
is  a  match,  the  precomposed  message  will  be  transmitted  as  a  Poll 
Response  message  with  an  unclassified  message  structure,  as  follows: 

UUU,  SOH,  F,  Aj^,  A^,  message  (if  any),  ETX, 

where  F  is  the  mode  character  indicating  that  the  message  is  a  Poll 
Response. 

If  there  is  no  match,  the  Poll  Response  message  is  not 
transmitted. 


A. 2  CP  TERMINAL  POLLING 

The  message  processor  unit  (MPU)  within  the  CP  terminal  can 
accommodate  four  poll  groups,  with  each  group  containing  up  to  16 
members  for  a  total  of  64  members.  Members  of  any  one  group  are 
restricted  to  the  same  combination  of  second  and  third  (A  and  A^) 
address  characters.  Two  polling  commands  are  defined.  One  command 
causes  all  members  of  a  single  group  to  be  polled.  The  other 
command  causes  all  members  of  all  groups  currently  defined  to  be 
polled. 

Upon  reception  of  a  polling  communications  supervisory  (COMSUP) 
command  from  an  ASR,  the  MPU  transmits  a  poll  request  message 
sequentially  to  each  member  of  the  group,  waiting  30  seconds  between 
requests  for  replies.  A  poll  response  is  timed  out  if  not  received 
in  its  entirety  within  30  seconds.  The  MPU  will  automatically 
change  the  individual  address  character  (A^)  designating  a  member  of 
a  group  with  each  successive  poll  request  message  according  to  the 
stored  poll  table  in  the  MPU.  This  poll  table  can  be  either  entered 
or  changed  by  COMSUP  commands,  which  provide  for  the  dynamic 
definition  and  maintenance  of  up  to  four  concurrent  poll  groups. 

New  groups  can  be  added,  existing  groups  deleted,  or  individual 
members  added  or  deleted  from  existing  groups.  See  table  A-3  for  a 
listing  of  COMSUP  commands  applicable  to  polling. 
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Table  A-3 


COMSUP  Commands  Used  in  Polling  Operations 


COMSUP  Command 


1)  PATG  gg  11 


a|  ..]c 


L  gg  = 


2)  PDEI.  gg  a 


3)  PPLG  gg  c 


4)  PPAG  c 


Description 


ADD  TO /CREATE  POLL  GROUP 

2-character  group  identifier  where 
all  alphabetic  characters  are  upper 
case.  Characters  for  "gg"  must  be 
selected  from  the  hexadecimal  group 
0  through  9,  A  through  F. 

Optional  2-character  line  mnemonic 
to  poll  on;  the  line  mnemonic  Is 
specified  only  when  defining  a  new 
group . 

^Aircraft  identifier  (one  to  eight 
characters  may  be  specified  in  one 
command).  All  alphabetic  characters 
are  upper  case.  Characters  "a"  must 
[  be  selected  from  the  hexadecimal 
[.group  p  through  9,  A  through  F. 

DELETE  FROM  POLL  GROUP 


2-character  group  identifier  where 
gg  =  all  alphabetic  characters  are  upper 


Aircraft  identifier  (one  to  eight 
characters  may  be  specified).  If 
none  is  specified,  the  entire  group 
_  will  be  deleted.  All  alphabetic 

characters  are  upper  case.  Charact¬ 
ers  for  "a"  must  be  selected  from 
the  hexadecimal  group  0  through  9, 

A  through  9. 

POLL  GROUP 

(2-character  group  identifier  where 
all  alphabetic  characters  are  upper 


POLL  ALL  GROUPS 


Table  A-3  (Continued) 


Notes 

The  group  tables  are  built  and  maintained  dynamically  in 
response  to  operator  commands.  A  new  group  will  be  defined  as  a 
result  of  an  ATG  command  that  calls  out  a  group  not  already  in  the 
tables.  Members  in  a  group  are  identified  in  the  ATG  and  DEL 
commands  by  three  characters;  the  last  two  characters  of  a  group 
member  identifier  are  the  same  as  the  group  identifier.  When  all 
group  tables  are  in  use,  the  form  of  the  command  used  for  defining 
up  to  four  groups  at  any  given  time  will  be  rejected  by  the  MPU. 
Another  form  of  the  command  is  available  for  use  in  subsequently 
adding  additional  members  to  an  existing  group.  Attempts  to  add  a 
member  already  in  the  group  will  cause  the  entire  command  to  be 
rejected , 

For  the  command  used  to  delete  individual  members  from  a 
polling  group,  the  entire  command  is  processed  and  all  identifiers 
are  validated  by  the  MPU  before  the  group  table  entry  is  modified. 
Any  error  detected  will  cause  the  entire  group  to  be  rejected. 
Another  form  of  this  deletion  command  is  available  for  use  in  delet¬ 
ing  an  entire  group  and  releasing  the  associated  table  entry.  It 
should  be  noted  that  the  first  form  of  this  command  can  also  result 
in  the  group  table  entry  being  released  if  all  its  members  are 
released. 


Each  member  is  polled  bv  building  a  Poll  Call  message  containing 
the  group  and  member  identifiers,  then  queuing  the  message  to  the 
MPU  output  line  associated  with  the  group. 

When  the  Poll  Response  message  is  received,  it  is  verified  and 
forwarded  to  a  high  speed  printer  with  the  prefix  POLL  RESPONSE 
RX.  The  next  group  is  then  polled  and  the  process  continues  until 
the  entire  group  has  been  polled.  If  no  response  is  received  from 
a  particular  member  within  30  seconds,  a  print-out  alarm  is  generated 
to  indentify  the  group  member  who  failed  to  respond.  A  received 
response  from  a  terminal  not  polled  (e.g.,  address  of  responding 
terminal  does  not  match  that  in  the  poll  request  message)  results  in 
the  message  being  intercepted,  forwarded  for  printout  on  the  high 
speed  printer,  and  a  POLL  RESPONSE  ER  Interrupt  message  being 
printed  out  along  with  the  Poll  Response.  See  table  A-4  for  a 
description  of  the  MPU  Status/Alarm  and  Intercept  Messages  for 
polling. 
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Table  A-4 


MPU  Status/Alarm  and  Intercept  Messages 


Condition 


1)  GROUP  XX  POI.T,  COMPLETE 

XX  2  hexadecimal  digits, 
a  group  identifier. 

2)  ALL  CROUP  POLL  COMPLETE 

Processor  has  completed 
polling  all  previously 
defined  groups. 

3)  NO  RESPONSE  TO  POLL 

A  time-out  has  occurred  on 
a  particular  member. 

Reason  for  Intercept 

4)  Poll  Response  from 
station  not  polled 

5)  Poll  Response  received 
Note : 


Status /Alarm  Message 
PLG  XX  COM 


PAG  COM 


POLL  RSP  T/0 


Intercept  Message 
POLL  RESPONSE  EP 

POLL  RESPONSE  RX 


MPU-generated  Status/Alarm  messages  are  prefixed  with  a  date¬ 
time  header  and  a  line  identification  mnemonic  which  indicates  the 
source  of  the  message. 
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A. 3  FORCE  TERMINAL  POLLING 


As  a  member  of  a  poll,  the  Force  terminal  pollee  must  dial  his 
proper  address  into  the  ASR  thumbwheels,  enable  the  address 
recognition  switch  on  the  ASR,  and  press  the  poll  XMT  button  once. 
Whenever  the  ASR  receives  a  message  header  of  the  format  following 
the  UUU  consisting  of: 

SOH,  p,  Aj,  A^ 
where 

Ap  A^,  A^  is  the  ASR  address, 

the  ASR  will  automatically  transmit  whatever  is  in  ASR  storage  up  to 
the  message  length  selected,  each  time  the  ASR  is  polled.  If  a 
change  to  the  Poll  Response  message  is  desired,  the  operator  must 
press  the  compose  and  edit  button  and  make  the  changes,  thereby 
taking  the  partiiular  ASR  out  of  the  automatic  poll  response  mode. 
Thus,  poll  responses  are  inhibited  while  the  Poll  Response  messages 
are  either  updated  or  revised.  After  update,  the  poll  XMT  button 
must  be  depressed  again  to  return  to  the  poll.  Both  Poll  Call  and 
Poll  Response  messages  should  print  out  on  the  pollee 's  ASR.  In 
addition,  any  text  attached  to  the  Poll  Call  message  will  not  be 
printed  out  by  the  police's  ASR,  regardless  of  model  ASR  (i.e., 

120A;  120B;  129;  Minl-I/0).  In  actual  operation  during  an 
automatic  poll  request,  the  model  120A  ASR  prints  nothing;  models 
120B,  12<1,  and  the  Minl-1/0  print  only  the  poll  message  (five 
characters  described  above)  along  with  the  ETX  (whenever  it  occurs). 


A. 4  OTHER  MPU-EQUIPPED  TERMINAL  POLLING 

An  MPU-eauipped  terminal  can  also  be  polled  as  described  above 
but  is  limited  to  a  shorter  Poll  Response  message  because  of  the 
message  transfer  technique  inherent  in  the  MPU-equlpped  terminal. 
Since  data  are  transferred  from  the  modem  to  ASR  on  a  message-by¬ 
message  basis,  the  complete  Poll  Response  message  is  transferred 
into  the  processor  from  the  ASR  before  going  to  the  modem.  To  stay 
within  the  CP  processor  poll-out  time  of  30  seconds,  the  maximum 
length  of  a  Poll  Response  message  from  a  processor  equipped  terminal 
is  130  characters. 
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APPENDIX  B 

PL/M-80  SOURCE  CODE 


/* 

llI.uAlA  -  .1CL  VERSIOK  1  -  10  JULY 

80 

•/ 

ooooosoo 

/• 

ht'.H,D«lA  -  RCL  1:  VEhSIOk  3-10  JAN. 

BO 

•/ 

0000  1000 

/•«/ 

00002000 

/• 

I.-.lhOVEC  fOLlING  COrSUE  COnnANDS 

•/ 

00003000 

/♦ 

lhAri.1  CKECKIti  nODE 

ZNR ! SAbC  1XXX 

•/ 

OOOOROOO 

/* 

ClSArLL  CHECHA  BODE 

ZNRlSAbCOXXX 

•/ 

OOOObOOO 

/* 

ik.1  lAHLl  CHECKIk 

ZNR 

!CAbCAAA 1 

•/ 

OOOObOOO 

/• 

hCl  :AoLE  CHICMN 

LNR 

!  DAbCBBfi 1 

•/ 

00007000 

/• 

CCI  lAELE  CHtCKIK 

ZNR 

! EABCCCCO 

•/ 

00006000 

/• 

oCI  '.AalE  CHECKIN 

ZNk 

! bAbCDD 1 

•/ 

00009000 

/• 

tplijUrn  TAELL  LOAU 

L  N  H 

!  IADC.  .  .  . 

•/ 

00010000 

/♦ 

hljLi'INt  lAtLt  load 

ZNR 

!  2ABC _ 

*/ 

OOC 1 1000 

/* 

Nj-fhAiJlC  TAbLE  LOAD 

ZNh 

! 3At  C.  . .  . 

•/ 

000 1 zooo 

.it,AiL£  censor  nsc  rRiMon 

ZNh 

!  4AoC0 

•/ 

000  1  300^/ 

/* 

tAAcLi  consur  rsc  frimolt 

ZNH 

*  uAbC  1 

•/ 

OOC ICOOO 

/* 

H-I  MTIALIZE  ECI  lAbLE 

ZNH 

!  f  AbC 

*/ 

OOC 19000 

/* 

ht-; hiTiALIZk  hCI  TAblE 

ZNH 

!  GAbC 

*/ 

OOO IbOCO 

/** 

LE-IMIIALLZl  NCI  TABLE 

ZNR 

!  HAbC 

•/ 

0001 700O 

/  ** 

KE-l NiriALlZt  OCI  TABLE 

ZNR 

!  AABC 

•/ 

JoO IbOOO 

/« 

iKIONirr  CHECKIN  TABLE  TKANLElh 

ZNR 

!  TAbCAXYZ 

•/ 

000  19C00 

/  ^ 

rOtTlNi.  CHECKIN  TABLE  TNANBEEE 

ZNH 

! TABCYXYZ 

•/ 

00020000 

/  ® 

AC-lt-uMlC  ChELKiN  TAbLE  TnA^SF£R 

ZNR 

!TABCLXYZ 

•/ 

000*.  1000 

/  • 

iviL  TABLE  TKAKSFEh 

ZNR 

! lABCTXYE 

•/ 

00022000 

/• 

iCILL  c  BKINKDT  POLL  TABLE 

ZNH 

!  HABL 

•/ 

00023000 

/  • 

«ULL  TAILE  fUNTCLT  (LOCAL  ONLY) 

ZNH 

! UAbCZAYZi 

•/ 

000«  4000 

/  • 

iO..L  TABLl  fKINTfcUT  (EErOTt  ALL-CALL) 

LNh 

! UAbCZXYZR 

•/ 

000*  9000 

/  * 

IhiOUTY  TABLE  PklNTOUl 

ZNN 

! UABCPXYZ 

•/ 

0002b00u 

/• 

rccriNE  TArLE  EBINTOUT 

ZNK 

! UABCRXYZ 

•/ 

000*  7000 

/* 

NU-TEAfUC  TABLE  FRINTOUT 

ZNR 

iUABCJXYZ 

•/ 

0002BOOO 

/* 

GR..J,  lAbLE  FRINTOUT 

ZNR 

! UAbCOXY  Z 

•/ 

000*9000 

/• 

£0*..  iAAMf  iSINGLE  FOIL) 

ZNR 

!  JAbC  IS 

•/ 

00030000 

/  • 

tCU  ISAl-Ll  inCLTiPLE  POLL) 

ZNR 

!  J  A  B  c  1 H 

•/ 

00031000 

/• 

Ec iL  L  iSAELE  (il NGLE) 

ZNR 

! JABCOS 

•/ 

00032000 

/• 

iu..w  iMLrRClT  ENABLE  (NON-T*.r) 

ZNR 

!  LAbC  10 

•/ 

00C33000 

/  • 

Ectk  .nTEnRUET  enable  (TDB) 

ZNH 

!  LABCO  1 

•/ 

00031*000 

/  • 

FOIL  iMlhUFT  ENABLE  (TLK  6  NON-TUB) 

ZNR 

! LAbC  1  1 

*/ 

D0039000 

/• 

FULL  LNTthHUrT  DISABLE  (TLB  o  NON-TCT) 

ZNR 

!  LAbCOO 

•/ 

00030000 

/  • 

FN:ufir>  ChlCNJN  TABLE  DELETltN 

ZNR 

• KABCPO  1 

•/ 

00037000 

/  • 

KOLTINl  checkin  table  riLETI^N 

ZNR 

! NAbCKO 1 

•/ 

OOOsbOOO 

/• 

Nv,-IKA>flC  CrECKTN  TABLE  DILETION 

ZNH 

! KAECNO  1 

*/ 

00039000 

/  ♦ 

OftCUk  t^hLCKlN  TAbLt  DlLtllCN 

ZNR 

! KABCGO  1 

♦/ 

OOObOOOO 

/• 

FFfChTl'ACN  t  rCLl  SLOT  BlASSICSrlNT 

ZNR 

!OAbC . 

.... 

•/ 

OOOb  1000 

/• 

La  AC  MAbLE  (NCN-TDB) 

ZNR 

! PAbC  1 

•/ 

000b2000 

/• 

lUAC  LiSAtLE  ^NON-TCB) 

ZNR 

! PAbCO 

•/ 

00093000 

/• 

riijACL  TNANSfJSSION  DELAT  (NCN-TOB) 

ZNK 

! KABC  10 

•/ 

00099000 

/• 

tNAuLt  ALL  TYUS  Cf  BESSAOlS 

ZNR 

! VArCO 

*/ 

00099000 

/  • 

LilRLOArD  NON-LOBSUP  BS&j  • h t N  POLLING 

ZNR 

! VAbC  1 

♦/ 

OOC9bOOO 

/• 

LI.'rEOANL  ALL  NON-COBSUF  B.SSACES 

ZNK 

! VABC2 

*/ 

00097000 

/• 

tRi-OhAr  NLBTART  (RE-IBL  E!I^hcFBOCljSC.h) 

ZNR 

!  KAbC 

*/ 

00098000 

/• 

KS.3.  .NTLRfAcE  E  N  Ab  L  t  ( 1)  /  L  I  S  ABL  E  (0  ) 

ZNH 

! iABC  1 

•/ 

00099000 

/• 

rlLnLi hCC E: SON  ADDRESS  CHANOt 

ZNK 

! lAbCCAb 

•/ 

00090000 

/♦ 

*/ 

0009  1000 

/♦ 

“/ 

00092000 

/♦ 

NOILS  •/ 

00093000 

/♦ 

1)  ALL  CurSDF  r.BOS  hEcLlRE  "..NK!”  fOLLONEL 

BY 

AT  LEAST 

*/ 

0CC99000 

/• 

ONE  BJLL  CHANACTEH  IBBEPlATElY  AfTEN 

THE  " 

1  H  ^ 

•/ 

00099000 

/• 

i)  1«0  ETX'i  AKl  PART  or  THE  CcrsUP  (1 SG 

SblFlX  . 

•/ 

00C9b000 

/♦ 

J)  "XYi"  IB  INLICATIVE  OF  A  hlKlDECInAL 

DESTINATION  ADDRESS 

*/ 

00097000 

/• 

-)  "ABC”  IS  INDICATIVE  CF  TKL  INITIALIZED 

ADDRESS  or  THE 

*/ 

00096000 

/• 

PIICncPRc/CLSSOR  ;  THIS  IS  A  CCrSUP  VAHlABll 

ih  ITSELF. 

•/ 

00099000 

/• 

*/ 

OOObOOOO 

/• 

»/ 

000b  1000 

'♦ 

LNPLT-/  CLTBUT  LESCHIPTIONS  */ 

00062000 

31 


p«SBiai»  PAOl  BU»-NOr  nLMKD 


/* 

/• 

/* 

/• 

/* 

/* 

/* 

/* 

/• 

/• 

/* 

/**/ 

/• 

/• 

/• 

/• 

/*•/ 

/* 

/* 

/* 

/• 

/* 

/• 

/* 

/• 

/**/ 

/♦ 

/• 

/• 

/• 

/* 

/••/ 


INPUT  1  •  CHAD  READY  FRCn  RODED  */ 

INPUT  101  «  CHAR  REAOY  fROH  HPU  «/ 

INPUT  •  CONTINUE  PROCRAfl  •/ 

INPUT  3  •  CHAR  FROn  HOCER  •/ 

INPUT  103  •  CHAR  FROM  HPU  */ 

INPUT  S  •  SPACE  FOR  OUTPUT  TO  HPU  */ 


INPUT  10S  •  SPACE  FOR  OUTPUT  TO  NODER  */ 

INPUT  <7>:  230  (E6H)  •  CLOCK  FOR  HICNOPROCESSOR  •/ 
INPUT  <107>:  229  (E5H)  *  CLOCK  FROH  RODEH  •/ 

INPUT  <9>:  228  (INK)  *  ECO  SLOT  INPUTS  •/ 

*/ 


8293  PROGRAHHAELE  COUNTER  INPUT/OUTPUT  */ 

ULTIUT  220  (DCH)  •  LOAO/RUAO  COUNTER  NO.  0  t8^S3)  */ 

OUTPUT  222  (OEH)  -  LCAD/READ  COUNTER  NO.  2  (8293)  •/ 

OUTPUT  223  (DFH)  «  NhlTl  RODE  RORU/ NO-OP  { 3-ST AT E)  •/ 


OUTPUT  1  ■  DATA  TO  KPU  »/ 

OUTPUT  101  •  DATA  TO  RLIER  •/ 

OUTPUT  2  «  DIAGNOSTICS  •/ 

OUTPUT  9U>:  233  (E9H)  •  PARITY  DISABLE  TO  HODER  •/ 

AND  I/O  CHIP  RESET  •/ 

OUTPUT  <E>:  23U  (EAH)  *  RE  ENABLE  TO  HPU  »/ 

OUTPUT  <10o>:  239  (EtH)  •  I/O  TX  ENABLE  TO  RODEH 
AND  RX  CLOCK  ENABLE  TO  HPU 


NS232  INPUT/OLTPLT 

OUTPUT  237  (EDH)  •  CCMROL  .ORD  (CPU  TO  USART) 
OUTPUT  236  (ECH)  •  LATA  (CPU  TO  USART) 

Input  ^37  (eoh)  •  status  nord  (usari  to  lpu) 
INPUT  *38  (ICh)  •  OATN  (USArT  TO  CPU) 


/••/ 

/**/ 


/* 

nErORY  AIDhEsSES 

FOR  1/t 

•/ 

/••/ 

/• 

INPUT  UADK  • 

on  608 

•/ 

/* 

INPU13IAUR  ■ 

orrucrt 

•/ 

/* 

CUTPUTItAUR 

OF  1*4  C  P 

•/ 

/* 

INPUT  10 1SA0N 

•  OPEvCH 

*/ 

/♦ 

INPUT 103iAOR 

•  cn4CH 

*/ 

/• 

INPUT  lOStAOR 

•  CfFUCH 

*/ 

/• 

OUTPUT1C1SACK 

■  v,n<<OH 

•/ 

/• 

1NFU19SA0R  • 

Up  EUOH 

•/ 

/♦•/ 

/*«/ 

/••/ 

/••/ 

LECLARE  (PRCURAHSSTAPT,  INlTlALlHSO)  LABEL; 

/*  RS*32  1/C  CHIP  initialization  •/ 

/•  rOCE  CONINOL  •/ 

PROCRAHISTART:  OUTFUT(237)  •  798  ; 

/•  79h  •  Cin  ICCIB;  01-1  STOP  bIT/1»£»EN  PARITY/ I-PARIIY  ENABLE  ♦/ 

/«  10>7  BIT  CHARACTER/01« IX  BAUD  RATE  FACTOR  */ 

/•  COHRAND  INSTRUCTION  -  RESET  */ 

OUTPUT  (2  37)  •  40H  ; 

/*  r.ODE  INSTRUCTION  •/ 

OUTPUT  (237)  •  79H; 

/*  COHRAND  INSTRUCTION  -  INITIALIZATION  */ 

CUTPUI(2  37)  •  17H; 

/*  17H  •  0001  Olllt;  O'ENTER  HUNT  RODC/O'I NTLRNA L  RESET/  •/ 

/*  O'RTS/ 1'LRNOR  RESET/C'SENL  BREAK  CHAR/1«RX  ENABLE  •/ 

/•  1'DTR  (NOT)  OUTPUT  FORCED  TO  Z£RO/1*TX  ENRbLE  •/ 


00063000 
00064000 
00069000 
00066000 
00067000 
00070000 
00071000 
00072000 
00073000 
00074000 
00079000 
00076000 
00077000 
0007701U 
00078000 
00079000 
OOCbOOOO 
0008  1000 
00062000 
00063000 
000640(*0 
00089000 
00088000 
8/00087000 
»/  00088000 
00089000 
•/  00090000 
•/  00091000 
•/  00092000 
*/  00093000 
*/  00094000 
00099000 
00098000 
00097000 
00098000 
00099000 
00  100000 
00  101000 
00  102000 
00  103000 
00 104000 
00109000 
00  106000 
00  107000 
00  108000 
00  109000 
00110000 
00  111000 
00 112000 
00113000 
00 114000 
00119000 
00  119010 
00119020 
00  116000 
00117000 
00116000 
00119000 
00120000 
00 12  1000 
00121010 
00121Q20 
00121030 


82 


/•*/ 

/•  CGklMCL  kORC  IRITIRLIZHTION  (B2SS  t  ^  CORTROL  ORLY)  */ 
CUTPUT(2J1)  •  9BH: 
ttTfUT(235)  -  90H: 

Cl)TPUT(233)  •  lOH; 

OUTPUI{233)  •  OM; 

CUTFUT(2  33)  •  lOH; 

/*•/ 

/•  CtRTRCL  RLGISTtk  1 R IT I» LIZ A TICR  •/ 

LELLARL  nPUlIOSCTl IIPOIRTER  ADDRESS  INITIAL  (OffOOH); 

DECLARE  KPUSIOiCTLI  BASED  HPUSIOf C TL ISPOI NTER  BYTE; 
tlRUIIOICTLIlPOIRTER  •  OEECOH; 

RFUlIOSCTLI  •  03H  AOR  Olfh; 

/*•/ 

DECLARE  r-PUYIOYCTL2}ROIRTER  ADDRESS  INITIAL  (GrruOH)  ; 

DECLARE  r.PUYX0SCTL2  BASED  nPUSIOYClLZtPOIRTER  BYTE; 
nFUtIO}CTL2SPOINTER  -  OPIROH; 
nRUSIOiCTLL  •  2rH  XOR  uriK; 

/•V 

heuiioictli  •  r3h  xor  crrh; 
flPUlIOSCTL^  ■  03M  XOR  Offh; 

RPDSIOACTLI  •  OCOH  XOR  OtiH; 

/••/ 

/**/ 

DECLARE  ftOLErtilOYCTl  ISPOIRTER  ADDRESS  INITIAL  (OrEOOH); 

DECDAK!  flODinllOICTL  1  BASED  NODE  Hi ICSCTL ISPOI R T ER  BYTE; 

ECDEKSlCSCa D  IIPOIRTER  =  OIEOOH; 
r.CCEr.JICiCl  L  1  •  03m  xor  DIFH; 

/••/ 

DECLARE  rUtE.Y]  lOtCTL^iEUlRTER  ADDRESS  INITIAL  (CI'EuOH); 

DECLARE  r.ODEM)  lOSCIL^  BASED  MODI  Ml  ICSCTL2SPOIRTER  BITE; 
f!CCEnSIOIClL2lPOIRTER  =  CEENOh; 
rcDEnSIOiC;  L2  •  ZIM  XOR  lIFH; 

/*•/ 

r.cDini  ICICI  L  t  .  R3M  XOR  CEFH; 
rcLEMi ICICI L^  •  03H  XO^  vlFh; 

•YCLEfll  ICICI  H  »  OCOH  XCR  CriH  ; 

/••/ 

/  •  •/ 

/•  IRIRUCTIO  roR  DIVIDE  BY  IZcO  (jtO  HZ)  OR  H-bIT  COURIER  •  2  •/ 

CLIEUT  (2  2  3)  >  OBBM  ; 

CL  lEUI  (222)  ■  ODBH  ; 
cL  rpUT  (2  22)  •  OR  H  ; 

/•  IrSTRUCTIOR  rOR  IIVIDE  by  r9«,<  (7S  M2)  OR  COURIER  10  •/ 

CUIPUT  (.23)  »  jth  ; 

OUlpLT  (.20)  •  B2h ; 

OUTKjI  (.21)  «  13H  ; 

/»  ThESE  LIVE  7L  E  300  hZ  CLOCKS  FRCH  b.7C  MHZ  CR-BOARD  XIAL  */ 

/••/ 

/••/ 

DECLARE  RS.J.IFLAO  BYTE  INITIAL(C); 

RS232SrLAL  •  0; 

DECLARE  (R S.32tSPACEITEST,  K S232 SOL ICHAR ,  R S 23 21 1 N PU I  1 , 

RS232SCC1,  RS232tnODESSEl)  LABEl; 

DECLARE  (ALR1,  ADR2,  ADR3  )  BYTE  IRITIAL  ( • A • . • B • , • C • )  ; 

ADR  1  -  'A*  ; 

ALH2  •  'B*; 

ALR3  •  'C; 

DELLARE(ROLLSSLOT1H,  POLLSSLOT2H,  rCLLtSLOT3H,  PULLSS LOTR H , 

POLLiSLCIbll,  POLLISLOTBH,  POLlISIOTYL.  P0LL$SL0I2L.  POLLSSLOT3L, 
POLLASLOIUL,  POLLiSLOISL,  POIISSLOTBL,  TX IS  LOTS  IN  I TI A LH , 
TXISLCTIIRITIAIL,  TDRIPOLLlTX IS LCTSIN I TI A L)  BITE 

IRIIIAL(M','1*,*2','3','I(*,'!)*,’1*,*9*,*7','5','3',M','0',M 


00 122000 
00123000 
00120000 
0012S000 
00126000 
00127000 
00  126000 
00  129000 
00130000 
00  13  1000 
00  132000 
00  133000 
00  UUOOO 
00  139000 
00136000 
00137000 
00136000 
00  139000 
00  1UOOOO 
00  16  1000 
00 162000 
00  163000 
00  166000 
00  169000 
00  166000 
00  167000 
00  I6b000 
00  169000 
00  190000 
00 19 1000 
00 192000 
00 193000 
00 196000 
00 199000 
00 196000 
00 197000 
00 19BOOO 
00 199000 
00  U  OUOO 
00  U  1000 
00162000 
00  163000 
00  166(200 
00  166010 
00 166020 
00 166030 
00 166060 
00 169000 
00 166000 
00  167000 
00  166000 
00  169000 
00  170000 
00  171000 
00 172000 
00 173000 
00 176000 
00 179000 
00  176000 
00 177000 
00  178000 
00 179000 
1)  ;00  IBOOOO 


83 


J-OlliSlOI  IH  •  '1' 

POIUSLOIU  -  •  !• 

1‘OIL$SLOT2h  •  •  1' 
fO  l.l.$SLOT2L  •  'S' 

FOILSSLOT3H  •  '2' 

10LLJS1.0T31  *  *7' 
lOLLISLOTUH  -  'S* 

iOlIiSlOIUL  •  '5* 
tOLHSLOTSM  • 
t-OlLSSLOISl  -  *3* 
t011.1SLOI6M  -  'S* 

POiliSLOTiL  •  <1* 

IX ISlOTilHITIAlH  •  'O*; 

TX iSLOTJIXITlALl  «  • 1 • ; 

IDnlP0LJ.STX$S1.0T$lNITIA;.  <  U; 

LECLAhl  ics3,  CS«)  bYTI; 

tiCLAHl  (PClLtinlT,  (OlLinOD£$EKPOk,  POLLSOV EhSTEST ,  kX,  YY,  HU,  ZZ, 
KIPCLXSTEST,  POL LSRSGSConpL IT E .  QUIT AbL E USTA TU S STEST . 
POLlIAGSnOCESTEST,  AU TOSPOE Lt h ESTAHT ,  AOHSTDN EPO LL ,  ED ACSHOCES SET , 
TEniPOLl,  PCllSTAbLESTX  ,  PO LEE IHTEH RUPT , h ETC A NSH ITt P lACSS ET)  EABEE 

DLCEAkl  FO lEiRSGSCOUkT  ADDRESS  lAlIlAL(O); 

POLEEHSCSCOUNT  «  0; 

ELEEARE  kTE r i E C ACi TAP  EE < 7)  BYTE; 

DECLARE  (ECACEfEAC.  tiEPOLLSriACSCOUAT)  BYTE  lAlTIAL  (0,0); 

Et'ACJTlAG  •  0; 

f IPUllSTEACSCOUkT  •  0; 

DECLARE  (CCXPRESEAT,  CCUPRESERT)  AEDRESS  IHITIAL  (0,0); 

CClPRESEHT  •  0; 

CC  UFRESEhl  <  0; 

LECEARE  I  1EOEE101,  CC  1 ,  OPOLE1C),  IPOELIOII,  HOH RTOB ADEL  A Y t ,  POLlSnODl 
DELAY tPUUl 1  RE  1 ,  EATInSGSSET,  ncOEnSOUTPUT ACOflPOS E  I , 

LCT1,  GtlEEAGI,  ECnTESTI,  SPACETEST7,  XORATOn AOE LA Y i S ET ,  ChARUTI, 

COnsURLCAj  1,  CU1CHAR1,  ROCO R SD F L 0 A E  1  ,  RXSBD S 1 1 0 V  £ RRI DE  I , T PC  1 L 1 1 )  EABEE 

LECEARE  (  ShlETOOaR,  SHITTOORRY,  LCAOADR,  EHOEOAD,  ACRERROR1  )  EABEE  ; 

DECLARE  EATEnSGAFLAG  I  BYTE  I  HITE AL  (C  IH)  ; 

EATAR  SGiE  LAG  I  •  OIK; 

LiCLARE  (CEE),  CEKPY,  DELAY’,  CEK<,  CEAP2,  CEK3, 

CERRJ  )  EYIE  ERITIAE  (0 , 0 . 0 , 0  ,  C  ,  u  ,0)  ; 

LiCEARE  (CERCRT1,  CERCRT2,  CEACRT','  ADDRESS  ERETEAE  (0,0,0); 

C  LA  1  •  0  ; 

DEAR’  •  0; 

CLRCRT  ’  •  C ; 

DELAY  1*0; 

CEA<  •  0 ; 

C  LAE  2  ■  0  ; 

CLKCRT2  •  E  ; 

CEA3  •  0; 

CLAY  3-0; 

CLACkT3  ■  D; 

DECLARE  (bUiMRICELAY  I,  NO  R}  TORS  RSg  YdE  LA  Y  1)  ADDRESS  ERETEAE  (<I8,300H); 

tDrrERFDELAT  ’  ■  HB  ; 

ACRSTOnSRSGSDELAY  1  •  3dC|‘; 

DECLARE  (ELACSFOUTEkE,OUTPUT}COnEUSE,PTTiLGAD),CEEAYSCAE, 

RTEJLCAEl,  RTTREEADI,  TT  Y  EC  Al  I  i  RD  1 )  LAbEE; 

DECLARE  (  ECEA,  TCLKP,  TCEKCRT)  bYLE  E  R  ET  EA  E  (d  ,  0 , 0 )  ; 

ELLA  •  0 ; 

ECLAE  •  0; 

ECEACRT  •  0; 

DECLARE  (R  SGiCV  ERSDlEAY  ,  TCEKi,  ECEAPI,  TCLKCrT’)  BYTE 

0)  ; 

•  bOH; 


ErEE lAL  (bR ,  C ,  0 , 
rSGtOVERSDELAY 
ECEA  I  •  0; 

EC  LAP’  •  C; 


00161000 
00182000 
00 163000 
00 164000 
00  16S000 
00  186000 
00187000 
00188000 
00189000 
00  190000 
00  191000 
00192000 
00  193000 
00194000 
00  I9S000 
00  196000 
00  197000 
00  198000 
00  199000 
;00200000 
0020  1000 
00202000 
00203000 
00204000 
0020S0O0 
00206000 
00207000 
00206000 
00*09000 
,00210000 
002  1  1000 
002 12000 
;002 13000 
002 ’4000 
00* IbOOO 
00216000 
00217000 
00216000 
002 19000 
00220000 
0022 1000 
00222000 
00223000 
00*24000 
O022S0O0 
00*26000 
002*7000 
00228000 
00229000 
00230000 
00*31000 
00232000 
00233000 
00*34000 
O023SOO0 
00236000 
00*37000 
00238000 
00*39000 
00240000 
0024  1000 
00242000 
00243000 
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ICLKCNTI  -  0;  00244000 

DECLAHL  (RtTHAKSnITSfLAG,  TDnSPO Lit IXtSLOT)  BYTE  1  NIT lAL (0 , 1)  ;  0024&000 

kEIRANSniTiriAC  •  0;  00246000 

ICnSPOllSTEtSLOT  •  1;  00247000 

DECLAkE  (SECIH.SLOIL.SLOT.SEOTICOUNI)  BYTE  INITIAL  (0,0, 0,0);  00246000 

LLOTH  •  0;  00249000 

LLOTL  •  0;  002SOOOO 

SLOT  >  0;  002&1000 

ilOlfCOUNT  •  0;  002S2000 

DECLAkL  (NILHCELAYH,  NTOROELAYL)  ALERESS  IN  I T1 A L (0 , 0 )  ;  00263000 

NtLnCELAYH  «  0;  00254000 

SILnCElAYL  0;  00255000 

[/ECLARl  kLCTiCUANCSTinE  ADDRESS  I N 1 TI A L  (2 OH )  :  00256000 

SLLTlGUARDtl IRE  •  20H;  00257000 

LECLAIiL  (TLRitLAC,  POLLSFLAC,  A  U  TOE  kEPOLLEF  L  AC )  BYTE  IklTIAL('0’,  0,  O);O025BOO0 
Ttr.iFLAC  •  'O'  ;  00259000 

PLLLIFLAG  •  0;  00260000 

A u lUtkEkOLLI FLAG  ■  0;  00261000 

OEClAkt  (PtLLlTAf-LElTYEFLAG,  NTDRl  kCLLJ  IN  TE  H  HU  PTE  F  LAG  ,  00262000 

TCREPCLLJINTEkHUPTEFLAG)  BYTE  I klTI A L (0 , 0 , 0)  ;  00263000 

PCILITAELEITIII LAG  •  0;  00264000 

MDRlkOUIINTEkRUPTSFLAC  =  0;  00265000 

Ttr.EIOLLilkTEkkUPTIFLAG  >  C;  00266000 

OCCLAkE  (  CS1,  ChAhl,  OUT1,  00267000 

HAITIkCI,  SPACE1,  LIkECOONI)  tYIi;  00268000 

OUTI  •  0;  00269000 

.AITINGI  -  0;  00270000 

LEI.LAH  CrtAkSTCiHl  1  (2000)  BYTE;  0027  1000 

I’ECLAkl  RSGCOlkT  1  (  150)  ADDRESS;  00272000 

DtCLAkk  oUTTAbLEI  (2C00)  BYTE;  00273000 

LELlAkE  (  II,  TCI,  OUTCOUKT  1  ,CC  1  ,J)  ADDRESS  IMTIAL  (0,0,  1,0,0);  OO^TnOOO 

J  '  0;  00^75000 

I  I  -  C ;  0027b000 

10  1  =  0  ;  00^7  7000 

OOTCCONT1  •  1;  0027B000 

CC1  •  C;  00279000 

LECLAkL  CS JDATASPCINTEk  ADDRESS  1 k I T I A L ( 0 f FC OH } ;  00263000 

DECLAHL  CSELATA  BASED  C 5 ID A T A S PC  I N T I R  BYTE:  OO.iuOOO 

C5I0ATA  IPOIkTEk  •  OFFOON;  002b‘-?00 

DLCLAKE  Ik kUT3SCATASF01kTER  ADDRESS  INITIAL  (OFF40H);  002B6000 

DkoLAkE  INIUT3>DAIA  EASED  I NFUT31DATA$POI NTLR  BYTE;  00267000 

1 kkUT3ICATAIPOINTER  «  0FF4bH;  00266000 

DECLARE  lNk6T5iOAIASfOIkTER  ADDRESS  INITIAL  (OFEOOH);  00269000 

DECLARE  1NFUT5SIATA  BASED  I N PUT5i D AT ASPOi NTE R  BYTE;  00290000 

Ik FDT5tCAIAtl OlkTER  •  OFEOOh;  00291000 

DECLARE  CUTFUT  IIDATAIPOINTER  ADDRESS  INITIAL  (0FE40H);  C0<32000 

DECLARE  CUTkUTIiCATA  BASED  OUTPU 1 1 J LATA IPOI R TIR  BYTE;  00293000 

CUTFUT  IlDATAFPOIkTER  •  0IE4LH;  00294000 

DECLARE  CS  lECATAFFCIkTER  ADDRESS  INITIAL  (OFEOOH);  00295000 

DECLARE  CS1FDATA  BASED  C S 1 1 D AT A I FO I NTER  BYTE;  00296000 

CS  1EDATAJ  PClkTER  •  OFEOOH;  00,.57000 

DECLARE  Ik FUT  103FCATA$F01NTER  ADDRESS  INITIAL  (0FE40H);  00296000 

DECLARE  Ik FLT  103iEATA  BASED  I NFU T  10 31 OATASPOI k T ER  BYTE;  00299000 

Ikl DT  103ICATASFCINTER  •  UFE40H;  00300000 

DECLARE  IN F IT  105$C ATASPOINTER  ADDRESS  INITIAL  (OFFOOH);  0030  10U0 

DECLARE  IN  1 DT  105$DATA  bASED  I NPD T  1051 DATAlPO I  NT ER  BYTE;  00  302U00 

IkFDT  1C5fLATASP0IkTER  >  DfiCOH;  00303000 

DECLARE  CU T FUT  10  1SDAT ASPOI NTER  ADDRESS  INITIAL  (OFFROh);  OOjCHOOO 

DECLARE  CUT! UT  10  1IDATA  BASED  OU T r U T  10 1 1 DA TA S PC  I N T E R  BYTE;  00305000 

CUTFUT  10  ISDATASFOINTER  •  CFI40H;  00306000 

O0jD7OO0 

/••/  00308000 

DECLARE  (C  5  ,C  BAR  ,  E  kC  ,  H  OF  ,f10D  E  ,  00  309000 


i^AlTIKG,  SPACE)  BYTE; 

EEC  >  0; 
rjE  •  0; 

EAITIEG  >  C; 

OECLAKE  (N ,  NinSGCl,  TOTALSMUHSCI . 

kUntPCl.  PCItPOlETEB.  EC,  EURSRCI,  IClSPCilETEB,  GCISPOINTER. 
EUnSACl,  NCiiPOlKTER,  CLKCET,  TCIMTIAL,  TCUEITIAL)  ADDRESS; 
TCIALSEURSCl  •  0; 
hUnSCCI  •  0; 

EUnSPCl  >  G; 

AGnSRCI  •  C; 

EGntEcl  •  C; 

CLKCET  -  0; 

TCIEITIAL  •  0; 

TCUEITIAL  -  0; 

DECLARE  (CLK.  CLKF,  DELAY)  BYTE  1 EITI A  L  (0 .0 . 0)  ; 

CLK  •  0; 

CLKI  •  0; 

DELAY  •  0; 

DECLARE  (bUtFERSDELAY  ,  RSGSDELAY  )  ADDRESS  lNlTlAL(Ub.  bbO); 
EGFFERSCELAY  •  EB; 
r.SGYDELAY  <  160; 

DECLARE  (  IJOLLI,  GC ,  OPOLL1.  (fUIT,  ST.  NJT1,  LCT,  CHARIT, 

CKAEeT,  CHARST,  CSSTEST,  PRBSLCAD,  RRBSLOAD,  ERBSLOAD,  nJT2. 

{ ITELOADIEED,  RITA LOA D$ BED .  ETTSLOADSEE D , 

PIISLOAL,  RTISLCAD,  ETTSLOAD,  ODTSTABIESBDILD,  CSnODESCAECEL  1 , 
PCIATEST,  CCSTEST,  RCISTEST,  EClATEST,  CIAEUHATEST,  C ANODE AC AEC t L , 
ECr.ATEST,  SPACEATEST,  DELAY  ARCVTIEE,  OUfACHAR  )  LABEL; 

DECLARE  iPCLHLSET,  RCIRESET,  ECIRESET,  GCIRESET,  ADRChAEGE  )  LABEL; 
DECLARE  (  STARAIESERT,  NPUATABLEEBUILD  )  LABEL  ; 

DECLARE  (  (CXSTORE,  RCISTORE,  ECISTCRE  )  (36S)  BYTE; 

DECLARE  GCISTURE  (32  1)  BYTE; 

DECLARE  CHARASTORE (2000)  BYTE; 

DECLARE  NSGACOUET (  150)  ADDRESS; 

DO  11  -  D  TO  1E5; 

RSGCCUET(ll)  •  0; 

EEL; 

DECLARE  (EECHYPT,  EECTEST  )  LABEL; 

DECLARE  SOh  LlTERALLt  'OlN*  ; 

DECLARE  CfnoOE  BYTE  INITIAL  (OH)  ; 

CAHODE  •  ON; 

DECLARE  PCIIHEAOER  DATA  ( ' *P RIOR IT Y «C1 : ' )  ; 

DECLARE  (I  ,TC,OUTSCODET.  CC)  ADDRESS  INITIAL  (0,0,  1,0); 

1  .  0; 

TC  •  0; 

CDTACOUET  •  1; 

CC  «  0  ; 

DECLARE  RCIIHEADER  DATA  (<RCI:')  ; 

DECLARE  OUTATABLE (2000)  BYTE; 

DECLARE  ECIIHEADER  DATA  ('NCI:’)  ; 

DECLARE  PREAhEACER  LATA  ( ' *1 RIOR 1 T Y*RB > )  ; 

DECLARE  NRbSHIADER  DATA  ('RRB:')  ; 

DECLARE  ERElriEADER  LATA  ('ERb:')  ; 

DECLARE  ETTAHEADER  DATA  ( • bP RIOR 1 T Y *TT ’) 1 
DECLARE  RITIHEADER  DATA  (’RIT:’)  ; 

DECLARE  NTTINEADER  DATA  (•ETT:’)  ; 

/*  */ 

DECLARE  (  COHPOSEI,  PT1,  RT1,  ET1,  GT 1 .  POLLIA B LEBUl L D 1 ,  IPLtTEST, 
CRECKIEHCLESET  1,  TTR1,  TBLDURF1,  CTABLEBUl LD 1 , 
nOLEERRORI,  RPUCIEUNI EST 1 .  P7TR1.  RTTRl,  ETIR1, 

POLL1TR1,  FTABLIDORP 1 ,  RTABLEDDRF1,  ETABLEDUNPI,  CTABLEDUNPI, 
FOLLIAbLEDDHf  1,  RTABLEBDILD 1 ,  PT AB L EBU ILD  1,  POLLTABLEDUnP2, 
ETABLEBUILDI,  FOLEDUHPBUILDI,  GrCLLBUlLDI.  C H EC K1 E SDEL ET E , 


00310000 
00311000 
00312000 
00313000 
00314000 
00315000 
00315000 
00317000 
00318000 
00319000 
00320000 
00321000 
00322000 
00323000 
00324000 
00325000 
00326000 
00327000 
0032b000 
00329000 
00330000 
0033  1000 
00332000 
00333000 
00334000 
00335C00 
00336000 
00337000 
00336000 
00339000 
00340000 
0034  1000 
00342000 
00343000 
00344000 
00345000 
00346000 
00347000 
00348000 
00349000 
00350000 
00351000 
00352000 
00353000 
00354000 
00355000 
00356000 
00357000 
00356000 
00359000 
00360000 
00361000 
00362000 
00363000 
00364000 
OO36SOO0 
00  366000 
00367000 
00366000 
00369000 
00370000 
00371000 
00372000 
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NPOLLi)liIl.i;i,  SPOLLBUILOI,  OVEBfLObl.  OVERrLOM2)  LABEL; 

00373000 

DECLARE  fOLLTABLEI  (1X73)  BYTE; 

0037X000 

DECLARE  (POLLPCIRTEB 1.  PT1COUNT1)  ADDRESS  INITIAL  (0.0); 

0037B0O0 

POLLPCINTER1  •  0; 

OO37ROO0 

H1C0URT1  »  0; 

00377000 

DECLARE  kTLHEADEB  DATA 

00378000 

(•IRICRITY  CKECAIk  TABLE  DURP * .OCH. DAH) ; 

00379000 

DECLARE  RTLhEADER  DATA 

00360000 

(•RCUIIAE  CHECKIN  TABLE  DURP • .ODH.OAH) ; 

00381000 

DECLARE  ATChEAOER  DATA 

00382000 

('AO  IRAiriC  CHeCKIN  TABLE  DURP * .ODH.OAH) ; 

00383000 

DECLARE  CTLHEAOER  DATA 

00  36X000 

(•CROUP  CHECKIN  TABLE  DURP'.  OCh.  OAH  ); 

00365000 

DECLARE  ADRERRORHDR  DATA 

00386000 

(•••  INCORRECT  ADR  CHARACTERS  *•*); 

00367000 

DECLARE  EKRORHDR  DATA 

00368000 

(•**  INCORRECT  RODE  CHARACTER  **•); 

00389000 

DECLARE  IfRERRORhCR  DATA 

00390000 

('TAbLE  TRANSEER  ERROR:  NO  CHECKINS'); 

00  39  1000 

DECLARE  OVERELORHCR  DATA 

00392000 

(••*  CHECKINS  AT  THE  LIRIT  •••); 

00393000 

DECLARE  ROLLDUHPHCR  DATA 

0039X000 

(•ROLL  TABLE  DURR:  CHANNEL  A'.  ODH.OAH  )  ; 

00395000 

DECLARE  ROLLHSGOVER  DATA 

00396000 

(•••  ALL  ROLL  HESSACES  LOADED  ***); 

00397000 

/  •  */ 

00398000 

/••/ 

00399000 

/*•/ 

00X00000 

/**/ 

00X0  1000 

/*  INITIALIZATION  RSC  TO  TERRINAI  OPERATOR  */ 

00X02000 

DECLARE  STARTUPSHSG  DATA 

00X03000 

(•IRRRCVEL  ROLLING  SOETNARE  -  VERSION  3:  10  JAN.  19B0  •); 

00X0X000 

IMTIALERSG:  RAITING  •  RAITING  ♦  1; 

00X05000 

LO  I  •  1  TO 

00X06000 

CUTTABLE(TC  ♦  I)  •  STARTDPSHSC  (I  -1); 

00X07000 

END  ; 

OOXQdOOO 

1C  =  TC  ♦  SX; 

00x09000 

RSGCOUNT  (BAITING)  •  5X; 

00X10000 

/•*/ 

OOX  1 1000 

/••/ 

00X12000 

/••/ 

00X13000 

/••/ 

OOX  1x000 

/••/ 

00X15000 

/••/ 

OOx  16000 

/*•/ 

00X17000 

/**/ 

00X18000 

/••/ 

00X19000 

/♦*/ 

00X20000 

/•  SLOT  calculation  ALCORITi.r.  */ 

00X2  1000 

IROLLl;  SLC"  ■  INPUT(2I8); 

00X22000 

SLCl  •  SLOT  NOR  OEEH ; 

00X23000 

SLCTL  «  SLOT  AND  OEOh; 

00x2X000 

SLCIL  «  SHR  (SLOTL.X)  ; 

00X25000 

SLClri  «  SLOT  AND  OEH  ; 

00X26000 

ELCTRCOUNT  •  SLOTH  »  10  ♦  SLOTL; 

00X27000 

If  SLCTICCUNI  <>  0  THEN  IDRlPLAG  •  •!•; 

00X28000 

ELSE  TDRJfLAG  •  ‘O'; 

00X29000 

CO  TO  POLISKRIT; 

00X30000 

/*  SLOT  IS  inputted  as  I  BCD  VALUES  ON  A  SINGLE  INPUT  */ 

00X31000 

/*  THE  ^  BCD  VALUES  ARE  RASKEL  OIT  INTO  SLOTH  AND  SLOTL 

*/ 

00X32000 

/•*/ 

00X33000 

/♦V 

00X3X000 

/«  ROLLING  ALGORITHR 

•/ 

00X35000 

37 


/••/ 

/•V 

tOLLSlnlT:  IF  POlLiFLAG  <>  0  1H  TH£tl  CO  TO  IPOLLII; 

IF  PTICOUKTl  <  <1  THEN  GO  TO  POUtHODESE  BNO  N  i 
ELSE  GO  TO  POlLtOVEKSTEST: 

PJLLir.ODIi  EENON  :  POLISFLEG  •  0; 

GO  TO  nODEERRON 

POLLtOVEKtIEST:  IF  POLLSHSGSCOUNT  >•  TOT*L>NUn»CI 
THEN  CO  TO  REPOllSTEST; 

ELSE  CO  TO  OUTTASLIUSTETUSETEST; 

REPOLLiTESI:  IF  AUTOIREPOLLtFLAC  •  OlM 

THEN  CO  TO  AUTOSPOEISRESTART; 

POLLSFLAG  ■  OH; 

GO  TO  POLlSnSGtCCHPLETE; 

POELAHSGiCCHPlEtE:  NAITING  «  WAITING  *  I; 
to  I  •  1  TO  30; 

OUTrABlE<TC  «  PCHMCOWER<I-l)  ; 

EAO; 

TC  «  TC  ♦  30; 
r.SGCOUNT  (WAITING)  «  30; 

EOLLSHSGSCOUNT  ■  0; 

GO  TO  IPOLLII; 

ogilAElE  USTATUSITEST:  IF  TC  1  >  fc  THEN  GO  TO  IPOlin-, 

ELSE  GO  TO  POLLlNGSnoOESTEST ; 
POLLINCtnoCEtTEST :  IF  TDHSFLAG  ■  *1*  THEN  GO  TO  TDHSPOLL; 

ELSE  GO  TO  NONlTOnSPOLL; 

AUTOtpOLLSPlSTANT:  POLLSHSGSCOUNT  •  0; 

TDHSPOLLSTESSLCI  «  TOfltPOLLSTXtSLOItINITIAL; 
GO  TO  FOLISRSCSCORPLETE; 

NOASTCRSPOLl:  If  NTOHSPoLLSI NTEKRUPISPLAG  •  OIH 
THEN  GO  TO  IPOLLII; 

IF  RLTRANSHITSFLAG  O  CIH  THEN 

POLLSHSGSCOUNT  •  PClLSHSGSCOUNl  *  1; 

ELSE  RETRANSHITSFLAC  •  9; 

/*  dON-IDH  POLL  HSC  COHfOSlTION  */ 

WAIIINCI  •  WAITINGI  <  1; 

OUTIABLE  1  (TC  1  ♦  1)  •  0  1H  ; 

OUTIABLE 1  (IC 1  ♦  i)  ■  'O*; 

DO  I  1  •  t  TO  3 ; 

OUITAbLEI  (TCI  *2  «  It)  • 

POllTAt  Lt  t  (I  t  ♦  POELir.SCSCOUNT  •  N  -4); 

END  ; 

OUTTABLE  1  (TC  1  ♦  b)  ■  03h  ; 

OGTTABLE1  (TC  t  ♦  7)  •  03H; 

/••/ 

ElAC  lABLE  LOAD  */ 

DO  J  •  I  TO  7; 

NIDHiElACSTABlE  (J)  •  OUTTABLE  t  (TC  t  *  0); 

ENL; 

/••/ 

IC1  •  TCI  ♦  7; 

RSGCGUNTI  (WAITlNCI)  •  7; 

GO  TO  IPOlLtt; 

TDHSPOLL:  II  TDHSFOLLSINTERRUPTSELAC  •  OSH 
THEN  CO  TO  IPOLLII; 

II  SLOTSCOUNT  •  TDHSPOLLSTXSSLOT  THEN 

tlhspollStxsslot  •  TLHSPOLLSTNSSLOT  *  1; 

ELSE  CO  TO  IPOLL  11; 

IF  TEfliPOllSIESSLOT  >•  IDBSf OLiSTlSSLOTS INITI AL  ♦  B  THEN 
TOnSPOLLtTESSLOT  ■  TDHSPOLLSTXSSLOTSINITIAL ; 

/*  TCH  POLE  HSC  COHPOSITION  */ 

IF  TOTALSNUnSCl  -  POLLSHSGSCOUNT  >•  b  THEN  N  •  b; 

ELSE  N  •  TCTALSNUHSCI  '  PCLLSHSCSCOUNT; 


00436000 
00437000 
00430000 
00439000 
00440000 
0044  1000 
00442000 
00443000 
00444000 
OO44S000 
00446000 
00447000 
00446000 
00449000 
00490000 
00491000 
00492000 
00493000 
00494000 
00499000 
00496000 
00497000 
00498000 
00499000 
00460000 
004b  1000 
00442000 
00463000 
00464000 
00469000 
00466000 
00467000 
00468000 
00469000 
00470000 
00471000 
00472000 
00473000 
00474000 
00479000 
00476000 
00477000 
00478000 
00479000 
00460000 
0048  1000 
00482000 
00483000 
00484000 
00489000 
00486000 
00487000 
00488000 
00469000 
00490000 
00491000 
00492000 
00493000 
00494000 
00499000 
00496000 
00497000 
00498000 
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kAITlkCI  •  HAlTlkGI  *  1; 

LO  J  •  1  TO  A; 

POLLir.SGSCOUSl  •  POILSnSGSCObKT  *  1; 

OITIAHLEI  (TCI  *  1)  >  OIH; 

Obi  lABLH  (TCI  *2)  •  'O'; 

CC  II  •  1  TO  j; 

CLITAELE 1  (TC 1  *  2  «  II)  « 

POLLTAbLE  1  (1 1  *  POLIItlSCSCOUAT  *  U  -  «)  ; 

END; 

TCt  •  TCI  ♦  b; 

OUTIAblH  (Id)  *  03H; 

EkL; 

r.SGCCO  NT  1  (AAITI  AC  1)  >  A  «  b; 

/*•/ 

/*•/ 

/•  lAPUT  EBOfi  nOCEn  */ 

/•*/ 

/*•/ 

IPOlllI:  CS  •  CSiCATA  XCH  OffH; 

»  CS  AAC  Olth; 

It  CSi  O  CCrt  THEA  GO  TO  XX; 

IBAA  «  I  APt'T  iiCATA  : 

Co  TC  AA; 

Xi :  CS  •  CS  AAT  OIH; 

ir  CS'Clh  1HEA  CO  TO  GC ; 

aa;  If  CC  >  0  THEA  CO  TO  LCT; 

EASE  CO  TO  OPOILI; 

/*  nCI-E.1  lAFUI  */ 

CC :  CHAK  •  INPUT3ICATA  XOB  OffH; 

CC-  CC*t; 

If  CC  >■  2CCJ  THEA  CO  TO  ACT; 

CHAP  i  STOKE  (CC)  <  CHAK  ; 

If  CC« 1  THEN  GO  TC  ST ; 

EASE  CO  TO  r.JTl; 

/•  EACKYPTIOA  TEST  */ 

ENCTlST:  It  CHAK  •  OAAH  THEN  GO  TC  ENCRYPT; 

EASE  CO  TO  ACT; 

/*  SCH  TEST  •/ 

ST:  It  CHAK  •  SOh  THEN  CO  TO  ACT; 

If  CHAK  »  •••  THEK  CO  TO  ACT; 

It  CHAK  -  CAAH  THEN  CO  TO  ENCRYPT; 

EASE  rjf»l; 

CO  TO  ACT; 

EACKtPT:  ENC  •  EAC  t  1; 

CO  TO  ACT; 

/•  HPU  JOB  TEST  V 

HJTI:  If  HJt-l  THEA  CO  TO  ACT; 

If  CC  >  2  TtiEA  CO  TO  EACTEST; 

If  EAC  •  2  THEN  OUTPUT  (233)  •  tih; 

If  Cc>f  THEA  CO  TO  CbAR3T; 

If  CC-A  THEA  CO  TO  CHARAT; 

If  CC*S  THEA  CO  TO  CHARST; 

EASE  CO  TO  ACT; 

CHAAjT:  If  CHAK  «  AUK  1  THEK  GO  TC  ACT; 

EASE  HJi-l; 

CO  To  ACT; 

CHAKA1:  If  cHAK>  ADK2  THIN  CO  TO  ACT; 

EASE  r.Jf-l; 

CO  TO  ACT; 

CHAKST:  If  CHAK*  AUR3  THEA  CO  TO  ACT; 

EASE  HJi'l; 

/*  EAST  CHAKACIER  TEST  •/ 

ACT:  TCAK  >  INPUT (23C) ; 


00A99000 
00900000 
00901000 
00902000 
00903000 
0090A000 
009C9000 
00906000 
00907000 
00908000 
00908010 
00909000 
009  10000 
00911000 
00912000 
00913000 
0091U000 
00919000 
00916000 
00917000 
00918000 
00919000 
00920000 
0092  1000 
00922000 
00923000 
0092A000 
00929000 
00926000 
00927000 
00928000 
00929000 
00930000 
00931000 
00932000 
00933000 
00936000 
00939000 
00936000 
00937000 
00938000 
00939000 
009A0000 
009A  1000 
009A2000 
00963000 
00966000 
00969000 
00966000 
00967000 
00968000 
00969000 
00990000 
00991000 
00992000 
00993000 
00996000 
00999000 
00996000 
00997000 
00998000 
00999000 
00960000 
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ICIK  •  ICiX  OIH; 

1>  TCIK  -  tClKF  THEN  GO  TO  OPOEL1; 

ICLNCNT  •  TCLKCNT  ♦  1; 

TCINP  •  ICIK; 

1)  ICLKCNT  <  <<tH  THEN  CO  TO  OFCLLI; 

ICIN  •  li; 

ItLKP  «  C; 

TCLNCkT  •  0; 

LClPHE&ENT  >  CClFhESlNT  «  1; 

If  CCtPhl:^IVI  >  CC  THEN  CCSPkESLkT  •  0; 

ELSE  CL  TO  OPOILI; 

OUTPU1(>j3)  >  ION; 

LkC  ■  Q ; 

/••/ 

/•*/ 

/•*/ 

/•  lOAC  AECOkITHP.  -  kON  TTH  POIEINC  BSC'S  •/ 
lOAClkCUllkL:  IP  ECACtfLAG  O  OlH  IkEN  GO  TO  njT2; 
il  rjf  <>  1  TkEk  GO  TO  flJT2; 

Xi  rOLXSELAG  <>  OIH  THEN  CO  TO  njT2; 

If  IDRlflAG  <>  'O'  THEk  CO  TO  njT2; 

If  CC  <>  7  THEk  GC  TO  njT2: 

CO  J  »  1  TO  7 ; 

If  ChAkSsTOkE (J)  <>  NTDRS ErACSTABLE (J) 

IkEk  GO  TO  RETHANSnlTtf EACSSET; 

tkC  i 

kETkA ksniTSf EAG  >  OH; 
kEPOLEEflACSCOUkT  >  0; 

GO  TO  rJT^; 

kElkANSnlTEI LACiSET ;  R ET BA N SHITT f EAG  •  OIH; 

KEPCEEiFEACfCOUkT  •  REPOEEI f EAGSCOUNT  *  t; 

El  kLFoEESEEACSCOUkT  >  3  THEk  kEPOELSFLAoECOU kT  •  0; 

If  kEIOEESFEACSCOUkT  ■  0  THEk  IiETRAN  SH 1 1*  I  EAG  •  OH; 

/••/ 

/•  RODE  TEST  C  FOkrAITING  */ 

nJT2:  ir  nj|>1  then  go  to  npUSTAbLESBUIEO  ; 
nOCL«  CHAklSTOkE (2) ; 

IF  HOLl  •  'C  THEN  GO  TO  CSJIEST; 

IF  nocE  •  'O'  Then  go  to  cssiest; 

If  BODE  •  'E'  THEN  CO  TO  CSRTEST; 

IF  BODE  «  'F*  Then  go  TO  PRBIEOAC; 

If  BODE  >  'k*  Then  go  to  NRBSEOAD; 

If  BODE  '  'k*  then  GC  TO  RRSSEOAO; 

If  rOCE  •  'X'THEN  GO  TO  PTTJEOAD; 

IF  BODE  •  'Y'  then  GO  TO  BTISLOAC; 

IF  ROCE  •  THEN  CO  TO  NTTSEOAC; 

GO  TO  BPUiTAdEESBUIEL ; 

/**/ 

/*•/ 

/•  CKECRIk  STATUS  TEST  •/ 

CSiTEST:  If  CJBODE*  'I'  THEN  GO  TO  cCSTEST; 

STAkSIkSEBl  :  ChARSSTORE  ( 1)  •  •?•  ; 

GO  TO  OUTiTABEEABUIED ; 

/•  CHAkAClEH  COUNT  TEST  •/ 

/•  THE  CC  TEST  kEvtIRES  PCl/RCI/kCI  CHtCRINS  TO  HAVE  */ 

/*  A  BlklBUB  OF  V  CHAkACTEkS,  BfSSAGES,  HOfcEVEh,  BAT  •/ 

/•  BE  AFPENDEC  AfTEk  THE  9TH  CHAKACTEk.  •/ 

CCITEST:  IF  CC  >•  9  THEN  CO  TO  PCIITEST; 

EESE  CHAkiSTORE  (1)  •  '?'  ; 

GO  TO  OUTITABEESBUIir; 

PCIITEST:  IF  bode  <>  'C*  THEN  CO  TO  RCIITEST; 

ELSE  kURIPCI  >  kURSPCI  •  1; 

PCIlPOINTEk  •  It  ♦  (  kUBIPtI  -  1  )  ♦  1  ; 


00S61000 
00B62000 
OOSBiOOO 
00564000 
OOSBSOOO 
00566000 
00567000 
OO56BO0O 
00569000 
00570000 
00571000 
00572000 
00573000 
00574000 
00575000 
00576000 
00577000 
00578000 
00579000 
00  580000 
005S1000 
00582000 
00583000 
00584000 
00585000 
00586000 
00567000 
00588000 
00589000 
00590000 
00591000 
00592000 
00593000 
00594000 
00595000 
00596000 
00597000 
00598000 
00599000 
00600000 
0060  1000 
00602000 
00603000 
00604000 
00605000 
00606000 
00607000 
00608000 
00609000 
00610000 
006  1 1000 
00612000 
00613000 
00614000 
00615000 
006:6000 
00617000 
00618000 
00619000 
00620000 
00621000 
00622000 
00623000 


no  1  •  b  TC  9  ; 

0062*000 

rClSSIOhi  (FCISPOlMTEf))  •  CHAP  fSTblE  (1)  ; 

00629000 

PClSPOlklEk  •  PCISPOINTER  *  1  ; 

00626000 

Lsn  ■, 

00627000 

Ou  1  •  0  It  12  ; 

00628000 

OUliTABLi  (TC  «  1  «  1)  •  PCISHEAniR(l)  ; 

00629000 

ENU: 

00630000 

kC  •  CC  ♦  13; 

00631000 

IC  «  TC  ♦  13; 

00632000 

GO  TG  CliNUr.tlEST; 

00633000 

hClJIlST:  ir  flODE  <>  ‘B*  THE*  CO  TC  HCIATEST; 

0063*000 

ELSE  kUnEnCl  «  kURSECI  «  1; 

00639000 

hClipOINTEii  =  <4  *  (  NUnSRCl  -  1  )  *  1  ; 

00636000 

BO  J  •  6  TC  9  ; 

00637000 

kCIiSIOAE  (RCIEPOIkTER)  «  CHAKESTtRE  (I)  ; 

00636000 

RCIiPCIMEh  -  RCliPOlNTER  *  1; 

00639000 

EkD; 

00640000 

BO  X  «  0  TL  3  : 

00641000 

CUIlIAait(TC  ♦  I  ♦  1)  •  RCUHEAlERd)  ; 

00642000 

Eab; 

00643000 

*C  «  CC  ♦  «; 

00644000 

TC  •  1C  *  b  ; 

00649000 

CO  TO  CTiMrSTEST; 

00646000 

KCXiTEST:  kunikCI  «  RUnERCl  «  1; 

00647000 

kCilFCiMth  »  It  *  (  kunlkci  -  1  )  ‘  1  : 

00646000 

DO  1  •  b  TC  9  : 

00649000 

RCliSTOKl  (*C:  JfOlkTER)  *  CHAR  i  SICB  E  (I )  ; 

00690000 

*Cl>ROT*TER  «  NCllPOlNTER  «  1  ; 

0069  1000 

E*B; 

00692000 

Bo  1  «  0  TC  3  ; 

00693000 

OUHTAtLlvIC  <  I  *1)  •  hCTIHEAI  En  (I)  ; 

0069*000 

E*B; 

00699000 

AC  •  CC  *  b; 

00696000 

IC  •  IC  »  b ; 

00697000 

/••/ 

00698000 

/**/ 

00699000 

CDKURlTESl  :  If  AURIFCX  *  RUHEhCT  *  NUnSNCX  60 

00660000 

THE*  GO  TO  CinoEESCANCEL; 

0066  1000 

tlOl  CC  TC  OlTXTAbLEEBCIBC; 

00662000 

/•  AEl-CAXl  CHECKX*  HOCE  CAACEl  */ 

00663000 

CirOBEiCAACEl.:  IT  iOBLXrLAC  •  C  1l.  ThE*  GO  TO  C  ir.OD  ESC  A  *C  E  1 1  ; 

0066*000 

to  XI  •  1  TO  27; 

00669000 

CCnAbll  1  (1C1»X  1)  »  OVi*HObHDR  tl ; 

00666000 

EKC ; 

00667000 

Id  •  TCI  ♦  27; 

00668000 

NAXTXkCI  >  bAXTXNCI  «  1; 

00669000 

RSCCOU*T1(*AXTX*G1)  •  27. 

00670000 

/*  ChECM*  nOCE  CAkCEt  H  SC  TC  TEKNlkAl  OPERATOR 

•/ 

00671000 

Cir.OtEiCAkCEtl:  DC  1  -  1  TO  27; 

00672000 

OBTSTABEE  (TC*X)  •  OVEhrECkROR  (I- 1}  ; 

00673000 

£*U  ; 

00674000 

It  •  IC  ♦  27; 

00679000 

kt  «  *t  ♦  ^7; 

00676000 

CXftCLE  •  'O'; 

00677000 

GO  TC  OUTSTABEEIfaUl EB  ; 

00678000 

/••/ 

00679000 

/••/ 

00680000 

HPUSlABEEiEBXEC:  kC  •  CC  ; 

0068  1000 

OUlSlAEElIbCIED:  CO  1  •  1  TO  CC ; 

00682000 

OBISTARLl(TC  «  I)  >  CHA  R  t  STOR  E  (X  )  ; 

00683000 

EkB; 

00684000 

1C  •  1C  ♦  CC  ; 

00689000 

RAXlXkG  •  kAXlIkG  «  1; 

00686000 
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nbbkCOUlil  (hAlTIkG)  -  VC; 

cc  •  0  : 

AC  •  0; 

KJi  •  U; 

OliTPUT(i33)  >  1CH; 
lAC  >  C; 

GO  10  OPCILI; 

/••/ 

/••/ 

pfibiLOAD:  cc  1  •  0  TO  11  ; 

OGTiTAbli(lC  «  1  «  1)  •  PAbSHAAClB  (I)  ; 

LAC; 

AC  •  Ct  ♦  12  : 

TC  -  1C  ♦  12  ; 

GO  TO  OUTSlABLEtBUlLL; 
hkblLOAD:  CC  1  •  0  TO  3  ; 

0UT1TABCL(TC  «  1  «  1)  -  ARBS  H  LA  C IR  (1)  ; 

LAC; 

AC  *  cc  ♦  A; 

IC  •  IC  ♦  «; 

CO  TO  OUl$lAbL£$EUlLL : 

AMbllOAD;  CO  1  •  0  TO  3  ; 

0GIJTAB11(TC  ♦  X  ♦  1)  •  ARBi«iACi«<X>  ; 

LAC; 

AC  •  CC  ♦  A  : 

TC  •  TC  ♦  A  ; 

GO  TO  OUTi TAbLtSbUlLL  ; 

/••/ 

/**/ 

PTISIOAO:  ii  CTHOCl  •  'O'  TNEA  GC  IC  STAbSlASEAT; 

IF  CC  <  b  THIA  CO  TO  STAARIASLAT; 

CO  I  •  t  TO  CC  fc»  A; 

AURiLCI  •  AUmiCl  ♦  1; 

FCIJPOIAIIA  .  A  »  (AUniPCI  -  1)  ♦  1; 

LO  0  •  0  TO  3; 

fClTSTOhE(  PCIIPOIATER  )  •  CHARiSTOA  E  (1  *  0)  ; 

FCXFPOIATER  •  PCXiPOIATEA  •  1; 

LAC; 

IF  AUrlFCl  «  AUnJACI  «  AUnSACX  >•  80  THEA  GO  TO  P IT A LO ADt EN C ; 
It  ICC  -  I)  <  A  ThEA  GO  TO  PTIi  LCAOSERC; 

LAG  ; 

PITS COADIEAL:  00  I  •  0  TO  11; 

OUTlTAbLE(TC  «  I  «  1)  •  P  TTSH  E  AC  LR  (I)  ; 

LAO; 


AC 

•  CC  * 

U  ; 

TC 

■  TC  ♦ 

1^  ; 

IF 

AUP.iPCI 

<  AUnSRCI 

•  AUnlACI 

>  •  bC 

THLA  GO  TO  CtHOCLSCAACEL 

GO 

TO  GL’Ti 

TABLlibUILC 

t 

tT 

TJ  LOAD : 

II  CtnODE  > 

'O'  THEA 

CO  IC 

STAASIASEAT; 

IF  CC  < 

9  TNCR  GO 

TO  STAASI 

ASIA!  ; 

00  1  •  fc  10  CC  BI  A; 

AUnAACI  •  AURSACl  «  1; 

hClAAOIATER  •  A  •  (AUnSRCl  -  1)  *  1 ; 

to  J  *  C  TO  3; 

ACltS10RE(  RCIAFOIATER  )  •  CHARASTOAE(X  *  J)  ; 

ACIAPOXAlEh  •  RCISPOINTEA  «  1; 

LAO; 

IF  AUtltPCI  *  NUnSACI  *  RUnSRCI  >•  eo  thea  go  to  RTTSLOAOSEAC; 
IF  (CC  -  I)  <  A  THEA  GO  TO  RTTALCADSERD; 

EAC  ; 

ATTSLOADiEAL:  DO  I  •  0  TO  3 ; 

OUTSTAbLE(TC  «  I  «  1)  ■  RTTSH  EAL'IK  (1)  ; 

lAD; 


00667000 
00668000 
00689000 
00690000 
00691000 
00692000 
00693000 
0069A000 
00696000 
00696000 
00697000 
00696000 
00699000 
00700000 
00701000 
00702000 
00703000 
00704000 
00706000 
00706000 
00707000 
00708000 
00709000 
00710000 
00711000 
00712000 
00713000 
00714000 
00716000 
00716000 
00717000 
00716000 
00719000 
00720000 
00721000 
00722000 
00723000 
00724000 
00726000 
00726000 
00727000 
00728000 
00729000 
00730000 
00731000 
00732000 
00733000 
00734000 
00736000 
00736000 
00737000 
00738000 
00739000 
00740000 
0074  1000 
00742000 
00743000 
00744000 
00746000 
00746000 
00747000 
00748000 
00749000 
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HC  •  CC  ♦  <1  ; 

TC  ■  TC  ♦  «  ; 

IF  kunirci  «  kunSRci  *  vunSiici  >>  iiO  thfii  go  to  cshodescriicci; 

CO  TO  OUTilABLESBUlLC ; 

kTISLOAC:  1)  CSRCDE  •  'O*  THEM  CO  TC  STAISIM5ERT; 

IF  CC  <  ^  THEM  GO  TO  STARSIMSERT; 

00  1  -  b  TO  CC  BY  U; 

MUHFACl  •  NUHTMCI  *  1; 

MCItlOIMTER  •  il  *  (MUHSMCI  -  1)  «  1; 

CO  J  •  0  TO  3; 

NC1SST0RE(  MClSFOIMTER  )  •  CHARSSTORL (1  * J)  ; 

kCllPOIkTER  •  MCISFOINTLR  *  1; 

FNL; 

IF  KUHIFCI  «  MUHFliCI  *  MUHSMCI  >«  80  THEM  GO  TO  M  TTSLOADS  EM  E ; 
If  (CC  -1)  <  It  THEM  GO  TO  MTTi  CC  ADS  EM  D ; 

EMD  : 

MTTSLOACJEMC:  DO  1  •  0  TO  3 ; 

0UT1TABII(TC  *  1  *  1)  •  MTTlHEAlER  (1)  ; 

EMU; 

MC  •  CC  ♦  M; 

TC  •  TC  ♦  K  ; 

IF  MOP.SFCI  «  MUHSRCI  «  MUHSMCI  >•  BC  THEM  GO  TO  CSHOD  ESCA  MC  E I ; 

GO  TO  CUTSlAdlESBUILC; 

/•  r.H  CLTfUT  */ 

OPOLil:  if  CELAY  «  1  THEM  GO  TO  OELAYSROUTI M E; 

IF  MAITIMG  <•  0  THEM  GO  TC  1P0L1101; 

IF  TC  >  0  THEM  GO  TO  EOHiTESI; 

ELSE  GO  TO  1P0LL1C1; 

EOHFTEET;  I)  OUTSCOUMT  <  n5G$C0UMT(t)  THEM  CO  TO  SPACESTEST  ; 
ELEE  DECAY  •  1; 

bPACESTEcT:  IF  RS33ISFCAG  •  Clh  THEM  GO  10  R  32  SS  PA  C  ESTE  ST  ; 
SPACE  •  IMrirSSLATA  XOh  OFFH; 

SPoCE  ‘  SPACE  AND  C^h; 

If  SPACE  -  CIH  THEM  CO  TO  OUTSCHAh  ; 

ECSE  DECAf  •  0; 

00  TO  IPOC  C  10  1  ; 

/**/ 

fiS.3AiSPAC  E»  TEST  :  SPACE  *  IMPUT(i37); 

SPACE  •  SPACE  AND  Oiri; 

IF  SPACE  *  Olh  THEM  GO  TO  OUTSCHAR; 

ECSE  DECAY  >  0; 

GO  TO  IPOCC101  ; 

/**/ 

CECAVIhOOTINE:  CCM  ■  IMFUT(230); 

CCK  >  CCM  AMD  OIK; 

If  CCE  -  tCKF  THEM  CO  TO  IPOCllOl; 

CCACMT  ■  CCKCMT  ♦  1; 

CCKP  •  CCK; 

IP  tCKCNT  <  EUPFEhSDECAY  THEM  CO  TO  IP0CC1C1; 

OUTPUT  (*3S)  -  OP.  ; 

IP  CCKCNT  <.  HSCEDECAY  THEN  CO  TO  IPOCCIOI; 

DECAY  >  C; 

CCKCNT  »  C; 

GO  lo  1POCC101; 

/•  V 

/*  OUTPUT  TO  rpu  •/ 

/••/ 

OUTCHAli:  IP  NS232tPCAC  «  UlH  THEN  CC  TO  RS23  2S  OUTC  MAP  ; 

OUTPUT  (<3tJ  •  OlH; 

uUTPUTIpUATA  •  OUin ACCE (OUTSCOUMT)  XOk  OIFH; 

OUTSCOUMT  >  OUTSCOUMT  «  1  ; 

GO  TC  SHIFTIUNM; 

/••/ 


OO7SOOO0 
007S  1000 
00782000 
00783000 
00784000 
00788000 
00786000 
00787000 
00788000 
00789000 
00760000 
00  761000 
00762000 
00763000 
00764000 
00768000 
00766000 
00767000 
00768000 
00769000 
00770000 
0077  1000 
00772000 
00773000 
00774000 
00778000 
00776000 
00777000 
00778000 
00779000 
00760000 
0076  1000 
00762000 
00763000 
00764000 
00768000 
00766000 
00767000 
00768000 
00769000 
00790000 
00791000 
00792000 
00793000 
00794000 
00798000 
00796000 
00797000 
00796000 
00799000 
00800000 
0060  1000 
00602000 
00603000 
00604000 
00608000 
00806000 
00807000 
00608000 
00809000 
00610000 
006 1 1000 
00612000 


hS^3itOUTCtiAf):  OUIFUT(237)  •  2SH: 

OUTCUt(236)  •  OUTAIAtLE  (OUlSCOUkT)  ; 

OUTtCCiUMT  •  OUTSCOUkt  4  1; 

SHiriDCuN:  ir  OUIICOUKT  <•  nSG$COUMt(1)  them  go  to  IPOLLIOI; 
CUlfUT(237J  *  I5H; 

CO  1  «  OUTJCOUMI  TO  TC  ; 

OLIilAblEl  1  ♦  1  -  OUTSCOUMT  )  •  OUT*TABLE(  I  )  ; 

Ek  L  ; 

CO  1  «  1  TC  AAlTIkC  ; 

RiCiCOUM  (1)  .  nSGSCOUMI  (I4l)  ; 

tkC; 

TC  •  IC  -  (  CUTlCOUkT  -1  )  : 

nStCOlKT  (kAlTlkC)  *  C; 
kAlTlAG  -  «AlTikG  -  1  ; 

OUT5CCIJM1  =  1  ; 

If  WAlIlkG  .  C  Ihkk  1C  -  0; 

/•  TA  G  hX  BAJOk  LOOP  -  HPU  */ 

/••/ 

/•*/ 

/•V 

IPcLLlOt:  1}  FSij2JfLAG  •  01H  THlk  GO  To  SS2 32 1 1 MPUT  1 ; 

ELSE  GO  TO  IPOLLIOI  1; 

/»*/ 

hS23^$lklUl  1:  CS1  ■=  lkPUI(237): 

C5I  •  LSI  AMD  02H; 

IF  CS1  •  02H  THEK  CHAkI  >  IMPUT(23G)  ; 

ELSE  GO  TO  IPOIL1G11; 

CO  10  kS232JGC1; 

/•*/ 

IPOlllCIt:  CSl  •  CS110ATA  XOS  OffH; 

CSX  •  CSl  AkC  CGH; 

I»  C5G  <>  CGH  THEM  CO  10  YY; 

CHAKI  <  iNFtnOJSCAlA  ; 

GO  10  Lii 

lY:  CSl  •  CSl  AML  Olh; 

IT  CSl  •  Olli  THEM  CO  TO  GC  1 ; 
i'i:  If  CCl  >  C  THEk  GO  TO  LCIl; 

ELSE  Go  10  OPOLLlOl; 

/••/ 

/•  IMKUI  fhOH  HPU  */ 

/**/ 

GCl:  ChARl  >  INPUT  103$DATA  XOK  Offti; 
hS^32ECCl:  CCl  •  CCl  4  1; 

II  CCl  >•  2000  then  GO  TO  LCTl; 

CHAKSIOKEI  (CCl)  •  CHARI  ; 

/•  •/ 

/•  HEACER  TEST  •/ 

/*  •/ 

If  CCl  <«  3  iHEk  GO  TO  LCTl; 

If  CCl  «  4  THEM  GO  TO  CHARUTl; 

If  CCl  >•  b  THEN  CO  10  LCTl; 

CHAKMTl:  If  CHARI  •  21h  THEN  OUT  1  =  0; 

ELSE  GC  TO  OUTfLAGl; 

GC  IC  LCTl; 

CUTILAGl;  OUIl  «  1; 

/•*/ 

/•  LASl  CHARACTFR  TEST  •/ 

/*•/ 

LCTl:  TCLKl  •  1MPUT(230); 

TCLM  1  •  TCLK  1  AMD  OlH; 

IF  TCLKl  •  IClKPl  THEk  CO  10  CPOLllOl; 

TCLKCNTl  ■  TCLkCMTI  4  1; 

TCLKPl  •  TCLKl; 


00813000 
00814000 
00815000 
00816000 
00817000 
00818000 
00819000 
00820000 
00821000 
00822000 
00823000 
00824000 
00825000 
00826000 
00827000 
00828000 
00829000 
00830000 
00631000 
00832000 
00833000 
00834000 
00835000 
00838000 
00837000 
00838000 
00839000 
00840000 
0084  1000 
00842000 

ooe<'3ooo 

00844000 
00845000 
00846000 
00847000 
00848000 
00849000 
00850000 
00851000 
00852000 
00853000 
00854000 
00855000 
00856000 
00857000 
00858000 
00859000 
00860000 
0086  1000 
00862000 
00863000 
00864000 
00865000 
00866000 
00867000 
00868000 
00869000 
00870000 
0087  1000 
00872000 
00873000 
00874000 
00875000  / 
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ir  TCLKCKTI  <■  nSGSOVERSDELAl  THEM  CO  TO  OPOLLIOI; 
ICIK 1  •  0; 

IClKr 1  •  0  : 

ICLKCATI  -  0; 

CC  litRESEliT  •  CCUPRESEVT  «  1; 

IF  CCItFRESEirT  >  CC 1  TREK  CC1SPRESEMT  •  0; 

USE  CO  TO  OPOLLIOI; 

/*•/ 

/*•/ 

/*  */ 

/•  •/ 

/•  CUIPliT  COBPOSITIOR  •/ 

/*  •/ 

/•  »/ 

OUIFCIJCOHFOSE;  If  OUTI  <>  1  THE*  GC  TO  COWPOSE1; 

CO  CASE  LATSnSGSFLAG 1 ; 

GC  10  BULEnACUTPUTICOnPOSE 1 ; 

It  FOLIIFLAG  •  01H  THER  GO  TO  FATSRSG1; 

ELSE  GO  TO  BODEniOUTFUlfCOnPOSEI; 

CC  TO  EATSnSGI; 

ERL; 

r.OLEfllCUlPUliCOnPOSEI  :  IF  CHARSTOR  1 1  («)  •  ThER 

GO  TO  BOCEHIOUTPUTiCOBPOSEi ; 

CO  11  »  1  IC  CC1; 

OUTTAbLE  1  (TC  1  ♦  II)  •  C  H  AR  STORE  1  (I  1 )  ; 

Erl; 

TCI  •  TCI  ♦  CC  1  ; 

RAITIRCI  «  RAITIHGI  ♦!; 

nscccURT  1  (raitirg  1)  •  cci; 

ERiJnscl:  cci  •  0; 

OUTI  •  0 ; 

cole  OPCL L 10 1 ; 

/••/ 

/•  LOOP-AhoURD  C'UTFOT  BESSACE  CorpCSIIIOR  */ 

/♦•/ 

rOCEr.JOUlPLlJCOnPCSEl;  :  DO  I  1  •  R  TO  eel; 

OUTTABLE  1  (TC  1  ♦  1 1  -  3)  •  CH Ah STOH  E  1  (I  1)  ; 
END  ; 

TCI  >  TCI  ♦  CCI  ; 

•AITIRGI  <  rAITIRCI  *  1; 

r.SCCOURT  1  (hAITINC  1)  •  CCI  ; 

CC  1  •  0  ; 

OUTI  •  C; 

CO  TO  OPOLLIOI; 

/»*/ 

/•  Cor.PCSlTlCR  PROGKAn  •/ 

/»  */ 

/•  TEST  BOLE  ChARACTER  */ 

/♦  */ 

COfIFOSEI:  It  eel  <  6  THER  GO  TO  flCLEERRJRt; 

If  ChAhSTORE  1  (L)  <>  ADR1  THER  GO  TC  ADRENRCRl; 

If  LhAhSTOhL  1  (7)  <>  ADR^  THEN  GO  TO  ADhERRCRI; 

IF  ChAhSTORE  1  (b)  <>  ADhi  THEN  GC  TC  AORERRORl; 

/*•/ 

/•  COtlSUP  f.OLE  hECOGRlTIOR  CHAhACTlRS  */ 

/••/ 

If  ChAhSTOhL  1  (b)  •  'A*  THER  CO  TC  CCIRESET; 

If  CHAhSTORE  1  (b)  ■  'E*  THEN  CO  TO  GTl; 

If  ChARSTORl  1  (b)  •  'C  THER  CO  TO  tTI; 

If  ChAhSTORE  1  (b)  -  'D'  THEN  CO  IC  RTl; 

if  ChAhSTORE 1 (5)  •  •£•  THER  CO  TO  RTt; 

It  ChAnSTORE 1 (b)  •  *f'  THER  CO  TC  PCXRESEI; 

It  CHAhSTORE  1  (b)  •  'C'  THEN  CO  To  hClRESET; 


00876000 
00877000 
00878000 
00679000 
00860000 
00881000 
00662000 
00883000 
00886000 
00886000 
00886000 
00867000 
00686000 
00689000 
00690000 
0069  1000 
00892000 
00893000 
00696000 

ooesbooo 

00696000 
00897000 
00698000 
00699000 
00900000 
0090  1000 
00902000 
00903000 
00906000 
00906000 
00906000 
00907000 
00908000 
00909000 
009  10000 
00911000 
00912000 
00913000 
009  16000 
00916000 
00916000 
00917000 
00918000 
00919000 
00920000 
00921000 
00922000 
00923000 
00926000 
00926000 
00926000 
00927000 
00928000 
00929000 
00930000 
0093  1000 
00932000 
00933000 
00936000 
00936000 
00936000 
00937000 
00938000 
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11 

CHARSICRE1  (S) 

•  'b* 

THEN 

CO 

TO 

MCIRESET; 

00939000 

II 

CNARSTCRE1  (S) 

- 

THEN 

GO 

TO 

AORCHRNGE; 

00940000 

IF 

ChAhSTCRl  1  (S) 

•  •  J  • 

THEN 

GO 

TO 

POLLSBODE; 

0094  1000 

II 

ChARSTUREI  (S) 

•  'K  • 

THEN 

GO 

TO 

NOHSTOHSDEIAFSSET; 

00942000 

IF 

ChARSlCRE  I  (S) 

*  '1' 

THEN 

GO 

TO 

POIISINTERBUPT; 

0094  3000 

IF 

ChARSTORE  I  (5) 

•  'H' 

THEN 

GO 

TO 

POLLTABLEBUILOI; 

00944000 

IF 

CHAhSTLHL  1  (S) 

•  •R* 

THEN 

GO 

TC 

CHECKINSDELETE; 

0094S000 

II 

ChARSTORE  1  (S) 

«  io< 

THEN 

GO 

TO 

SLOTSREASSICN; 

00946000 

IF 

ChARSlCRE 1 (S) 

.  tpi 

THEN 

CO 

TO 

EDACSflODESSET; 

00947000 

I 

F  CHARSIORE1  (S) 

*  *0 

■  THEN  G 

0  TC  RS232SHODXSSET; 

00948000 

PLITEST:  IF  CHA  RSTOR  £  1  (S)  « 

n  • 

THIN  GO  TO  PROGRANSSTART ; 

00949000 

IF 

ChARSlCRE 1  (S) 

« 

THEN 

GO 

TC 

CHECKINHODESETI; 

009&0000 

II 

ChARSlCRE  1  (S) 

m  <  X  • 

THEN 

GO 

TC 

TIB  1; 

0099  1000 

II 

CHARS1CRE1  (S) 

■  •  u  « 

THEM 

GO 

TO 

TBLDUBPI; 

00992000 

II 

ChARSlCRE  1  (S) 

.  <  V* 

THEN 

GO 

TO 

EATSHSCSSET; 

00993000 

IF 

CHARSTORE  1  (9) 

a 

•X  • 

THEN 

CO 

TO 

PlTBl; 

00994000 

IF 

ChARSlCRE 1 (9) 

a 

•Y  • 

THEN 

GO 

TO 

RlTBl; 

00999000 

IF 

ChARSlOREI  (9) 

a 

•E* 

THEN 

CO 

TO 

NItRI; 

00996000 

IF 

ChARSTORE  1  (9) 

a 

•  1  • 

THEN 

GO 

TO 

P1TSLOAD1 : 

00997000 

IF 

CHARS10RE1  (9) 

a 

•2* 

THEN 

CO 

TO 

RTTSLOADI; 

00998000 

IF 

CHARSTORE  1  (9) 

a 

•3' 

THEN 

GO 

TO 

RITS10AD1; 

00999000 

ELSE  CC  1C  NOD 

EERROR 

1; 

00960000 

/*•/ 

/**/ 


/• 


fOitiSlOTlH 
fOlLiSiOT  U 
tOLl.tSLOT2N 
POLLiSLCTiL 
V0Ll.i!>1.0T3H 
FOli.iSl.OT31 
POlllSlOIKH 
FOLLiSLOmi 
FOLLiSlOTbH 
FOLlSSLCTSl 
F011iS10X6H 
iOIliSlOTll 


CNiiiSTOBIl  (9)  ; 
CHARSTOflEI(IC) 
CHARSTOBEt(n) 
CHARST0RE1  (1<) 
CHARST0BC1 (13) 
CHARST0RE1(1<i) 
CHARST0RE1 (IS) 
CHAfiSTOBEI  ( 16) 
CHARST0RE1(17) 
CNARSTORE  1  ( 18) 
CHARSTORE  1  (  19) 
CNARSTORE  1  (iO) 


GO  TC 

CONSUPIOADI ; 

/•*/ 

KS23< 

INODES 

SET:  IF  CC1  <  9  THEN 

GC  10 

HODEEBRCR  1 ; 

1 1 

ChARSTORE  1  (9)  •  '0* 

TNEIi 

RS232SFIAG  •  OH; 

1 1 
CC 

CHARSTORE 1  (9)  -  'I* 
TO  COHSUPLOADI; 

IHlh 

RS232SrLAG  >  01H; 

/•*/ 

EATSNSCS  SET 

:  IF  CC1  <  9  THEN  CO 

TO  NODEERRORI; 

I  1 

CHARSTORE 1 (9)  •  '0* 

THEN 

EATSHSCSFLAGI  •  OH; 

IF 

CHAHSIOBE1  (9)  •  'I* 

THEN 

EATSNSGSI  LACI  •  0  1H 

I  1 

CHARSTORE 1 (9)  •  '2' 

IHIR 

EATSHSCSFLAGI  •  02H 

ChARSTCREI  (9)  •  EATSNSC 

SFIAG 

1  ♦  30H; 

00961000 

00962000 


SLOTSREASSICN:  IF  CC 1 

<  22 

THEN 

GO  TO 

HOOEERRCR 1 ; 

00963000 

If  CHARSTORE  1  (2  1)  > 

J5H 

THEN 

GO  10 

nODttKKOK  U 

00964000 

IF  CHARSTORE  1  (2  1)  < 

30H 

THEN 

GO  TO 

RODEERROR 1; 

00969000 

IF  CHARSTORE  1  (22)  > 

39H 

THEN 

CO  TO 

NODEERRORI; 

00966000 

IF  CHARSTORE  1  (22)  < 

30h 

THEN 

GO  TO 

NODEERRORI; 

00967000 

TXlSLCTIINITIALH  « 

(CHA 

RSTOBE 

1(21) 

-  30H)  *  10; 

00968000 

TXSSLOTSINITIALL  • 

CHA 

RSTORE 

1(22) 

-  30H  ; 

00969000 

If  TXiSlcniRlTlAlH  *  TXSSLOTSIMTIALL  >  S4  THEN  GO  TO  NODEERRORI; 
IF  TEiSLClSlNlTIAlH  «  TXSSIOT 61 R ITIAIL  •  0  THEN  CO  TO  NODEERRORI; 
TDNSFOLLITXSSLOTSINXTIAL  ■  TX $ SLCTSlNlTl A  IN  *  T X$ S LOTS  IN ITl AL L ; 
TCNIFOLLITXSSLOT  >  TDNSPO LIST XSS lOTSlN ITl AL ; 
TDNSPOLLSTXSSLOTSINITIAL  IS  UNITED  TO  A  RANGE  OF  1  TO  S4  •/ 


CO  TO  CONSUPIOADI ; 


/••/ 


00970000 
0097  1000 
00972000 
00973000 
0097U000 
0097SO00 
00976000 
00977000 
00978000 
00979000 
00980000 
0096  1000 
00982000 
00983000 
00984000 
0098S000 
00986000 
00987000 
00988000 
00989000 
00990000 
00991000 
00992000 
00993000 
00994000 
0099&000 
00996000 
00997000 
00998000 
00999000 
01000000 
01001000 
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/••/ 

lUACirCLliSlT :  ir  CC1  <  9  THEN  CO  TC  JkOSERBORI; 

If  CHARSIORE 1 (9)  •  M*  THEM  EDRCSriAC  •  01H; 

If  ChAKSTORE  1  (9)  •  *0*  TREK  EDACSELAG  •  OH; 

GO  1C  consuFioAD  1 : 

/••/ 

/*•/ 

AURCHAkCL:  IF  CC1  <  11  THEH  GO  TO  ACRERgORI; 

ADA  1  •  CHARSTORE  1  (9)  ; 

AUR2  •  CHARSTORE  1  ( 10)  ; 

ACRi  «  CHARSTORE1  (11)  : 

CO  TO  COnSUPLOADI; 

/••/ 

/••/ 

POCLEHCOt:  IF  CC1  <  10  THEN  CO  TO  ACRERRORI; 

If  CHARSTORE  1  (9)  •  'O'  THEH  POLlIrLAC  •  OH; 

If  CHARSTORE  1  (9)  >  '1*  THEH  POilSfLAC  •  01H; 

/•  INITIALIZATION  Of  POLLING  BODE  •/ 

II  CHARSTORE  1  (9)  -  M'  THEN  POLLtHSGlCOUNT  ■  0; 

IF  CHARSTORE  1  (9)  •  'I*  THEN 

TCH5POLL$TX$SLOT  •  TDB IPO LLf TX S SLOTSI NT TI AL ; 

If  CHAKSlOEE  1  (9)  -  M*  THEN  REPOliSriAClCOUHT  •  0; 

If  CHARS10RE1  (9)  «  '1'  THEN  B ITRANSHITIfLAG  ■  OH; 

If  CHARSTORE  1  ( 10)  •  ‘S'  THEH  AOTOABEPOLISFLAC  •  OH; 

If  CHARSTORE  1  (10)  •  'B'  THEH  AOTOSR EPOL LSf LAG  •  01H; 

CO  TO  COnSUPLOADI; 

/*»/ 

/••/ 

ROLLilMlBRLRl  :  If  CC  1  <  10  THEN  GO  TO  ADRERROR1; 

If  CHARSTORE  1  (9)  *  'I*  THEN 
NTLHf RCLLSINTERRUPTSfLAC  •  01H; 

If  CHARSTORE  1  (9)  •  *0*  THEN 

NTLB  iPOLLSINTERRUPTSf LAG  «  OH; 

If  CHARSTORE  1  (10)  •  THEN 

TOntPCLLSINTERRUPTSfLAC  -  01H; 

If  CHARSTORE  1  (10)  -  ‘O’  THEN 
IDBSROLLEINTlRRUPTJf LAC  ■  CH ; 

CHAR SIORE 1  (9)  •  NTDHlPOLllINTERRUPTSfLAC  ♦  30H ; 

CHAR:>TORE  1  (10)  ■  TOBSPOLLEINIERRUPTSfLAG  *  30H; 

CO  TC  COHSUPLOADI; 

/**/ 

/*•/ 

NON}  IDBSLE  LA  ftSET :  If  CC  1  <  10  THEN  GO  TO  ADRERROR1; 

If  CHARSTORE  1  (9)  <  30H  THEN  GC  TO  flODEERRORI; 

If  CHARSTORE  1  (9)  >  39H  THEN  GC  TO  HODEERBOR1; 

If  CHARSTORE  1  (10)  <  30N  THEN  CO  TO  HODEERRORI; 

If  C HARSTCRE  1  ( 10)  >  39H  THEN  GO  TO  flODEERRORI; 

/*  CHARACTERS  9  D  10  ARE  DELAY  ENTERED  IN  SECONDS  •/ 

/*  flAXIBUfl  DELAY  IS  99  SECCNDS  •/ 

NTDflDELAYH  •  CHARSTORE  1  (9)  -  jOH; 

NTLflCELAYL  ■  CH A RSTORE  1  ( 10 )  -  30H; 

DELAYSCAL:  NO N ST C fl f fl SGS D E L A Y  1  «  (N 1 EflOE L A TH* 3COH)  *  ( NTDfl DEL  A Y L* 30H )  ; 
CO  ic  COnSUPLOADI; 

/**/ 

/*•/ 

/•  ADR  ERROR  HESSAGE  */ 

ADRERRCR  1:  DO  I  •  1  TO  30; 

OUTTAbLE(TC  «  I)  •  ADR  ERRORH  DR  ( I  -  1)  ; 

END  ; 

NAITINC  •  WAITING  *  1; 

TC  -  TC  ♦  30; 

CUTTABLE(TC  *1)  •  ODH  ; 

CUTTABLE(TC  «2)  •  OAH; 


01002000 
01003000 
OlOONOOO 
0100S000 
01006000 
01007000 
01008000 
01009000 
01010000 
01011000 
01012000 
01013000 
01016000 
0101S000 
01016000 
01017000 
01016000 
01019000 
01020000 
0102  1000 
01022000 
01023000 
01026000 
0102S000 
01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01036000 
01039000 
01036000 
01037000 
01038000 
01039000 
01060000 
0  106  1000 
01062000 
01063000 
01066000 
01069000 
01066000 
01067000 
01066000 
01069000 
01090000 
0  109  1000 
01092000 
01093000 
01096000 
01099000 
01096000 
01097000 
01096000 
01099000 
01060000 
0106  1000 
01062000 
01063000 
01066000 
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CUITABl£(tC«  3)  •  A0R1; 
tUlIABl£(IC  ♦«)  •  ADR*; 
tUIIAbl£(TC  •  ACkJ; 

0U1IABI£(TC  ♦£)  •  03h: 
liUIIABl£  (TC  «7)  -  03h  : 

1C  •  IC  ♦  7; 

rSCCOUkl  (RAITlkC)  •  37; 

c>u  TO  COnSURLOAOl; 

/••/ 

/•  •/ 

/*  AltiTIOAB  TO  c:  TABL£S  •/ 

/•V 

/*  CHiCKlS  TAblt  IBASSFEtiS  FhCn  fPU  BT  COBSUB  CORBAkC  •/ 

/**/ 

UTii-OADI:  ir  CCl  <  12  TM£A  GO  TC  BCDEBABOJi  1  ; 

17  hUr.SPCl  «  KUBSfiCl  «  kUKlACI  >•  SO  TH£k  CO  TO  OVtSTLOSI; 

LC  1  •  -J  TO  CCl  BY  U; 

NUKiBCI  ■  kURSPCI  «  1; 

rCliPOIkTER  •  K  »  (AUBJPCI  *1)  *  I; 

1.0  J  •  0  TC  3; 

7ClJST0h£  (PC JlPOlkTEP  )  * 

CHAfiSTOBE  1  (1  *J)  ; 

ICIJPOIkTER  •  PCIIPOIRTEK  ♦  1; 

INC  ; 

IF  kUnkPCI  *  MURtRCl  *  PUntkCl  >«  8D  IHEN  CO  TO  TTt lOR D» ED C 1  i 
IF  (CCl  -  I)  <  K  THER  GO  TC  ITSIOAHEA0 1; 

£RC: 

GO  TC  COn&UPLOADI; 

hTTJLOAOl:  IF  CCl  <  12  THEN  GO  TO  HCOEEBSOB 1 ; 

IF  NUHIPCI  ♦  NURSRCI  ♦  NUHJNCI  >•  80  THEN  CO  TO  OVEBrlOMI; 

CO  I  «  9  TO  CCl  BY  G; 

NUnlHCI  •  NCNSBCI  «  1; 

RCIIPOIATCR  •  G  •  (NURSRCI  -  1)  ♦  1; 
to  J  •  0  TO  3; 

RCIESTORE (BCISPQINTCR  )  • 

CHARSTOREl  (I  ; 

£CIJPOINT£B  •  hCHPOlNTER  «  1; 

£AC; 

If  NOrlPCI  ♦  NuniRCI  ♦  NOHJACI  >•  so  then  go  to  ITSlOACitllE  1; 
If  (CCl  -  I)  <  G  then  CO  TO  TTllOACRENDI; 

ENCi 

CO  TC  CCHSUPIOADI; 

NTiBEOACI:  If  CCl  <  12  THEN  GO  TO  nCPEERRORI; 

If  kUHSPCi  <  NUnSRCI  *  NURSNCl  >•  80  THEN  GO  TO  OVERFLOHI; 

CO  1  •  9  TO  CCl  BY  G; 

AUHENCI  •  NUnSRCI  «  1; 

NCIJPOIRTER  •  G  •  (NURERCl  -  1)  «  1; 

CO  J  ■  0  TO  3; 

NCDSTONE  (NCISPOI  NTER  )  • 

CNARSTORE  1  (1  *J)  ; 

NCIIFOINTER  •  RCISPOINTER  *  I; 

ENC; 

IF  NUHRPCI  *  RUnSRCl  *  NtHTACI  >•  BO  THEN  CO  TO  T Tt LOA CS ENC  1 1 
IF  (CCl  -I)  C  G  then  CO  TO  irttOADSENC  1; 

INC; 

GO  TC  COnSUPlOADl 1 

ITSLOAOtENCl:  IF  NURlPCl  •  NURSRCI  *  NURSNCl  80  THEN  GO 
TO  OVENFLOh 1 ; 

ELSE  CO  TO  CORSUPlOAOt; 

/•  •/ 

/*  •/ 

/•  PRIORITY  •/ 

/•  •/ 


OlORBOOO 
O10BBOOO 
010B7000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
0107UOOO 
01076000 
01076000 
01077000 
01078000 
01079000 
01080000 
0108  1000 
01082000 
01083000 
OIOSGOOO 
01086000 
01086000 
01067000 
01088000 
01089000 
01090000 
01091000 
01092000 
01093000 
O109G00O 
01096000 
01096000 
01097000 
01098000 
01099000 
01100000 
01101000 
01102000 
01103000 
01  lOGOOO 
01106000 
01106000 
01107000 
01108000 
01109000 
01110000 
01111000 
01112000 
01113000 
0111GOOO 
01116000 
01116000 
01117000 
01118000 
01119000 
01120000 
01 121000 
01122000 
01123000 
0112G000 
01126000 
01126000 
01  127000 
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/•  */ 

FT1:  ir  liUKSPCl  *  NUnSRCl  *  MUfliRCl  >•  80  THEK  CO  TO 

OVEfiFiOH  1 ; 

kUOEPCl  «  NUnlFCl  *  1; 

PCISPOIMEii  -  <4  •  (  kUnSPCl  •  1  )  «  1; 

DO  I  •  9  TC  1i; 

PCISSIUPE  (PCIIPOIRTEE)  -  CH  ARSTOii  E  1  (I)  ; 

PClSPOIliTER  >  PCltPOlNTER  «  1; 

IKL; 

GO  TC  COnSliPLOAD  1 ; 

/*  •/ 

/*  •/ 

/•  hOLTlRl  •/ 

/•  •/ 

/•  •/ 

KT1:  ir  suripci  «  NUHIKCI  *  RUnPkCI  >>  80  THEA  CO  TO 

cvEhiLCA  1 ; 

Aunshci  •  kCnSRCI  ->  1; 

hCaEPOIHEh  .  «  *  (  AUHSRCI  -  1  )  ♦  1; 

CO  I  •  9  TC  12; 

hClJSTCKl  (hCJIFOIATER)  •  CHARSIORE1  (1)  ; 

HCIIPOIRTIK  •  kClEPOIATER  ♦  1; 

LAC; 

GO  IC  COrSUPlOADt; 

/•  •/ 

/•  •/ 

/*  AC  ThAMIC  */ 

/•  */ 

/*  •/ 

ATI;  ir  ACMPCI  ♦  AUBIRCI  ♦  RllHiktl  >•  80  THER  CO  TO 
OVekPLOk  1  ; 

AUntkCl  °  NUHSACl  «  1; 

ACiJPOlRTtk  «  «  *  (  AURJRCI  -  1  )  ♦  1; 

CO  I  •  9  TC  12; 

ACltSTCkl  (ACliPOlkTER)  «  CHARSTOkEl  (I)  : 

ACIJPOIATIH  «  kClSFOlATER  *  1; 

LAC; 

CO  TC  CORSIPLQAOI; 

/•*/ 

/•*/ 

/•  tkCCP  CklCKIA  */ 

/••/ 

CTl:  li  CC  1  <  11  TNEA  CO  TO  ADREkRCkI; 
ir  kcntcci  kc  THLA  GO  TO  0VEkrLCA2; 

A  »  C ; 

DO  1  «  1  It  Ifc; 

AURiCCl  >  AUnjOCI  *  1; 

GCItPOlATER  «  *i*(»UHlCCI  -1)«1; 

CCI9STORE  (GCIEPOIKTER)  •  C KA k STORE  1  (9)  ; 

GCltSTOkE  (CCl)POIATER  «  1)  «  CHARSTORE  1  (  10)  ; 

CO  CASE  A; 

CCliSTCRE  (CCISFOIATER  »  •  'O'; 

CCliSTORE  (CCISPOIRIER  ♦  2)  ■  '1'; 

GCltSTORE  (CCISFOTRTER  «  2)  •  '2'; 

CCISSIORE (CCIIPOIRTER  ♦  2)  •  'i'; 

GClASTORE  (CCIEFOINTER  «  2}  • 

CClSSTORE  (CCISPOINTER  *  2)  •  'S'; 

CtliSTORE  (CCISPOINTER  *  2)  «  '6'; 

CCISSTORE  (CCIIPOIRTER  •  2)  •  '?•; 

GClISTORE  (CCIIPOIRTER  «  2)  •  '8'; 

CCIISIORI  (CCIlPOl  RTER  ♦  2)  •  '9'; 

GClISTORE  (CCIIPOIRTER  *  2)  -  'A*; 

CCIISTORE  (CCIIPOIRTER  «  2)  •  *8'; 


01 128000 
01129000 
01130000 
01131000 
01132000 
01133000 
01139000 
0113S000 
01136000 
01137000 
01138000 
01139000 
01  190000 
0  1 19  1000 
01  192000 
01  193000 
01  199000 
01 19S000 
01  196000 
01197000 
01198000 
01199000 
011SOOOO 
011S1000 
011S2000 
01163000 
01169000 
01166000 
01  166000 
01167000 
0  1  168000 
01169000 
0  I  160000 
0 1 16  1000 
01 162000 
01  163000 
0  1 169000 
0  1  166000 
0  1 166000 
01  167000 
01166000 
0  1 169000 
01170000 
0 1  17  1000 
0  1  172000 
01173000 
0  1  179000 
01176000 
0  1  176000 
01177000 
01178000 
01  179000 
01180000 
0118  1000 
0  1 182000 
01183000 
0  1 189000 
01186000 
01166000 
01187000 
01  188000 
0  1  169000 
0  1190000 
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GCliSTORE  (GCISFOINIER  «  i)  •  *C': 

01191000 

GCIISTORE  (CCISPOIRTER  *  2)  •  *D*: 

01192000 

GClSSTORE (GCISPOIITER  *  2)  -  'E*; 

01193000 

GCIISTORE  (CCItPOlNTER  *  2)  •  •F'; 

01194000 

ERE; 

0119SOOO 

k  »  N  ♦  1 : 

01196000 

GCIISTORE (GCIIPOINTER  «  3)  •  CHA1ST0RE1(1 

1)  ; 

01 197000 

CCIIIOINTER  •  GCIIPOINTER  *  &; 

01190000 

IE  kUnlGCl  >•  RH  THEN  GO  TO  tVERrLOk2: 

01199000 

ikC: 

01200000 

GO  TC 

corstPLOAc 1 : 

0120  1000 

/•*/ 

01202000 

/••/ 

01203000 

CHLCKlIiiCl^lIiTL:  ir  CC1  <  11  THEN  CO  TO  AORERROR1 

J 

01204000 

k-N; 

0120S000 

1>  ChARSTORE  1  (S)  •  *P*  THEN  N  •  0; 

01206000 

ir  CHAHSTORE  1  (9)  •  *R*  THEN  N  «  1; 

01207000 

IE  CHAHSTORE  1  (9)  •  'N*  THEk  k  •  2; 

01208000 

IE  CHAHSTORE  1  (9)  •  'G*  THEk  k  •  j; 

01209000 

/• 

•/ 

01210000 

ir  S  ‘  THEN  GO  TO  HODEERHCR1; 

01211000 

IE  CHARSTORE 1 (10)  •  30N  >  6  THEN  CO  TO  flODEERRORI; 

01212000 

IE  CHAHSTORE  1  ( 1 1)  -  30H  >  9  THEN  GO  TO  HODEERRORIl 

01213000 

/• 

•/ 

01214000 

J 

•  (CHARSTOREI  (10)  -  30H)  •  10  ♦  (CH AfiS TOR E 1  ( 1 1)  -  30H)  ; 

01219000 

/• 

*/ 

01216000 

00  CASE  k; 

01217000 

IE  J  >  kUniPCl  THEN  GO  TO  r.CDEERROHI; 

01218000 

IE  J  >  kUHIRCI  THEN  CO  TO  RtOEERRORI; 

01219000 

IE  J  >  kUniNCI  THEk  CO  TO  HCDEERROH 1 ; 

01220000 

IE  J  >  NUHICCl  THEN  GO  TO  HCOEERRORI; 

01221000 

ENLi 

01222000 

/• 

*/ 

01223000 

OO  CASE  N; 

01224000 

It  kUHlFCI  •  0  THEN  GO  TO  HODEERRORI; 

0122SOOO 

It  NUnIRCI  >  0  THEk  GO  TO  HODEENROHI; 

01226000 

IE  klHlNCI  ■  0  THEN  GO  TC  HODEERRORI; 

01227000 

If  kUnlGCI  •  0  THEk  GO  TO  HODEERRORI; 

01228000 

END; 

01229000 

/* 

•/ 

01230000 

LO  CASE  N ; 

01231000 

DC  I  •  N*Jt1  TO  N*NUnIPCI; 

01232000 

PCIiSTORE  (I-N)  •  PCIISTCRE  (1)  ; 

01233000 

EAC; 

01234000 

DO  I  •  ll*J«1  TO  NNNUHIRCI; 

0123S000 

RCIISTOHE  (I -4)  •  RCIISTCRE  (1)  ; 

01236000 

EkE; 

01237000 

DC  I  •  4*J«1  TO  NNNUBIkCl; 

01238000 

kCIISTORE  (1-N)  •  NCIISICRE  (X)  : 

01239000 

EkC; 

01240000 

DC  I  -  4*J*1  TO  N*NUnlCCI; 

0124  1000 

GCIISTORE  (1-4)  •  GCIISTCRE  (1)  : 

01242000 

EkE; 

01243000 

ENC; 

01244000 

/• 

•/ 

0124S000 

DO  CASE  N; 

01246000 

kOntPCI  •  kUHIPCl  -  1; 

01247000 

NUHIRCI  •  kUnlRCI  -  1; 

01248000 

kUHINCl  •  NUHIRCI  -  1; 

01249000 

NUPlGCl  •  NUHIGCl  -  1; 

012S0000 

INE; 

01291000 

/* 

•/ 

01292000 

10  CASE  N; 

01293000 

100 


PCltroiKTER  •  PCItPOmTER  •  M : 

RCXSVOIKTER  *  RCItPOIilTlII  -  4; 

RCISPOIKTES  «  KCliPOlVTEk  •  4: 

GCliPOmTER  «  GCXtf01»1t»  -  4; 

mc; 

/•  •/ 

GO  TC  ConSUPLOADl : 

/•V 

/•  r.PU  Cl  NunbER  TEST  •/ 

/•V 

/•V 

npUClRUHTESl  1 :  IF  HURSRCI  «  RUMSPCl  *  KtflltKCI>*  dO 
IMIJt  Cti  TO  CVESFlOUl; 

EISE  CO  TO  COnSUPEOEOT; 

/••/ 

/*  OUEBFIOK  RESSACE  •/ 

/•*/ 

/*•/ 

OVEfcFlOW  1;  ClnCCE  •  'O' ; 

OVlRFlOtii;  CO  I  •  1  TO  27; 

OUtSTAbLi(  TC  «  1  }  •  OVEbriOUHCH  (I  -  1  )  ; 

EEC; 

kAlTlRC  «  bAIIlEC  *  T; 

TC  •  TC  ♦  *7; 

OUTTAEIE  ITC  ♦  1)  •  03H; 

OUTTAfclE  ITC  *2)  •  03h; 

TC  •  TC  ♦  <; 

RSOCUUET  (•(AlTTkG)  ‘  29; 

CC1  «  0; 

GO  TO  CtOLllOl; 

/*  */ 

/•  */ 

/•  checkie  null  SIT  «/ 

/* 

/•  •/ 

CHtCMNUCDlblT  T;  II  CO  <  9  TBEIi  GC  TO  AOSESRoU; 

II  CHARSTOREI O)  *  *0*  »«£*  CEROCE  •  'O'; 
ir  CHASSTOfill  <91  •  'I*  r«£»  CtnODE  •  M*; 
ELSE  CInODE  «  'C*; 

If  AURjPCi  *  AUREKCI  *  NURSKCI  >>  bC  THEM  GO  TO  OVERFIOHl; 
ELSE  CC  TO  COHSUPLOAD1; 

/**/ 

/••/ 

/•  bESET  Cl  CHlCEIli  TABLES  */ 

/•*/ 

/•*/ 

PCIRESIT:  kunSPCl  •  C; 

PClfPOJkTIh  »  0; 

GO  TO  COnSUPLOAOl; 
bClAESET;  dVnSSCZ  •  0 ; 

bClSPOlETEii  •  0; 

CC  TO  CORSUPLOAD1; 

RCIBESET:  kUfttPCl  •  0; 

HCItPOIllTEB  •  0; 

CO  TO  CORSOPEOAO  I; 

GCIBESET:  kUnSGCI  «  0; 

GCITPOIVTEb  •  0; 

/*•/ 

/•V 

/*  CORSUP  RSC  kETOSk  TO  TCkRlkAE  OPEkATO*  */ 

/••/ 


012S4000 

012SS000 

01294000 

01297000 

01298000 

01299000 

01240000 

01241000 

01242000 

01243000 

01244000 

01249000 

01244000 

01247000 

01244000 

01249000 

01270000 

01271000 

01272000 

01273000 

01274000 

01279000 

01274000 

01277000 

O127B0OO 

01279000 

01260000 

OU61000 

01262000 

01263000 

O128U000 

01269000 

01266000 

01267000 

01266000 

0U69000 

01290000 

01291000 

01292000 

01293000 

01294000 

01299000 

01294000 

01297000 

01298000 

01299000 

01300000 

01301000 

01302000 

01303000 

01304000 

01309000 

01304000 

01307000 

01308000 

01304000 

01310000 

01311000 

01312000 

01313000 

01314000 

01319000 

01314000 
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/*•/ 

01317000 

CODSUILOADI:  DO  1  •  1  TO  CC1 ; 

01318000 

OUTtTAbLE(  TC  «  1  )  •  CHABSTOR 1 1  (I)  ; 

01319000 

LNO; 

01320000 

TC  •  IC  ♦  CCI; 

01321000 

hAlTlAC  •  hAlTIMG  «  1; 

01322000 

OUTTAELE  (TC  *  1)  •  OJH; 

01323000 

OUTTAELE(TC  «2)  •  03H: 

0132*000 

1C  •  TC  *2: 

01328000 

nSCBCOUNl (HAITIBC)  •  CCI  «2; 

01328000 

BOCOnSUPLOALI:  CCI  -  0; 

01327000 

GO  TO  CPOEL101; 

01328000 

/•  •/ 

01329000 

/•  EhRCA  MESSAGE  OUHP  */ 

01330000 

/•*/ 

01331000 

/••/ 

01332000 

rODEEKEOnl:  UO  1  •  1  TO  30; 

01333000 

CUTATAULK  TC  *  1  )  •  ERROBHDh(l  •  1)  ; 

0133*000 

ERE; 

0133S000 

TC  ■  TC  »  jO; 

01338000 

RAITIAG  •  kAITIAG  «  1; 

01337000 

r.SGCOURT  (RATTING)  •  0  ; 

01338000 

BSCCOUNT  (RAillNG)  •  BSGCOU  NT  (RAT  TI  SG)  ♦  30; 

01339000 

CCI  •  C; 

013*0000 

CO  To  CPOLLIOI; 

013*1000 

/••/ 

013*2000 

/*  */ 

013*3000 

/*  lAELE  TRANSFERS  •/ 

013**000 

/•  ♦/ 

013*8000 

/•  BAKE  UP  HEADER  •/ 

013*6000 

/*  •/ 

013*7000 

Tiki;  OUTTAtlEl  (TCI  ♦  1)  • 

013*8000 

CUITAEEEMTCl  ♦  2)  •  CHARSTORE 1  (%)  ; 

013*9000 

ICllNllIAE  •  TCI; 

01380000 

DO  I*  1  To  3; 

01381000 

OUlTAblEM  TCI  t  2  ♦  I)  •  CHAhSTCREl(  )  ; 

01382000 

END; 

01383000 

/*  •/ 

0138*000 

/•  SEIECT  TAbEE  •/ 

01388000 

/*  •/ 

01386000 

IF  CHAhSTOREI  (9)  •  'X'  THEN  CO  TO  PITRI; 

01387000 

IF  CBARSTORE  1  (9)  «  'V  THEN  CO  TO  RTTR1; 

01388000 

IF  CHARSIOREI  (9)  «  ’2<  THEN  CO  TC  NTTBI; 

01389000 

IF  CHARSTOhi  1  (9)  •  'T*  THEN  CO  TC  PCLETTR1; 

01360000 

ELSE  CO  TO  BOCEERRCR  T ; 

0136  1000 

/•  •/ 

01362000 

/*  •/ 

01363000 

/•  PCI  TAblE  LOAD  •/ 

0136*000 

/*  •/ 

01368000 

/•  */ 

01366000 

fTTRI:  if  NDBSPCI  •  0  THEN  CO  TO  TFRERROR1; 

01367000 

bAITINCI*  •AI11NC1  «  1; 

01368000 

BSCCOUAT1(»AITINCI)  •  C; 

01369000 

TCI  •  TCI  ♦  b; 

01370000 

k  •  «*NUr.$PCI; 

01371000 

DC  I  •  1  TO  N; 

01372000 

OUTTAEEll(  TCI  ♦  I)  •  PCI  ISTO  RE  (I)  ; 

01373000 

END  ; 

0137*000 

TC  1  •  TC  1  «  N  ; 

01378000 

OUTTAELE  1  (IC  1«  1)  •  CiH; 

01376000 

CUTTAfclE  1(  IC  1<2)  •  C3H; 

01377000 

TCI  •  TCI  ♦  2; 

01378000 

RSCCOUNTI(hAITlNCI)  •  TCI  -  TCIINITIAL; 

01379000 
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CO  TO  COrSUtlOADI; 

/•  •/ 

/•  •/ 

/■  kCl  lAbLE  iOAC  •/ 

/•  •/ 

/•  •/ 

ATTfil:  ir  AUnSRCl  •  0  THE*  GO  TO  TFAERRoai: 

•  AIT1IICI>  HAlTlIiGI  4  1; 
nSGCOUAT  1  (bAITlAGI)  «  0; 

TC 1  ■  TC  1  ♦  i; 

A  >  4*AUr<AilCI: 
uO  I  •  I  TO  A; 

CUTIAfcLI1(  TCI  ♦  1)  *  RCllSTOkE  (I)  : 

AAO  : 

IC  1  •  TC  »  ♦  K  ; 

OUTTAbLE  I  (1C1*  1)  •  03H  ; 

OUTTAbLE  1  (1C  1«2)  •  03H; 

TCI  -  TCI  •  2 : 

HbGCOUAT  1  (.AlTIACl)  •  IC  1  -  TCIIAIIIAI; 

GO  TO  COKSL'f  LOAG  1; 

/•  */ 

/•  •/ 

/*  ACI  lAELE  LCAC  •/ 

/*  •/ 

/•  •/ 

ATlAt:  11  AURiACI  •  C  THEA  GO  TO  DAERfcORI; 
■AITIACI*  AAITIACI  «  1; 

RSCCCUAT  I  (-A1T1AG1J  <  0; 

TCI  •  TCI  ♦  i; 

A  *  li*AUr.lACI; 

DO  1  «  I  TO  a; 

0UT1AHII(  TCI  ♦  1)  •  ACIJSIOhE  (I)  ; 

EAC  ; 

TC  I  -  TCI  ♦  A  ; 

OUlTAblE  I  (TCI*  I)  >  OJM  ; 

OUTTABLE  I  (TO l<2J  •  U3H; 

TCI  •  TCI  ♦  * ; 

RSCCOUAT  l(AAITIAG1J  •  TCI  -  TCIIMTIAL; 

GO  TC  CORSUiLOADI; 

/•  •/ 

/•  •/ 

/•  ROLL  TABLE  LOAD  (  ALL  CALL  )  •/ 

/•  •/ 

/•  •/ 

POLLTThI:  I>  TTICOUA11  <■  0  TREA  GC  TO  rERERACFI; 
■AITLAGI-  -ALTIAGI  *  1; 

RSGCOUAT  I  (-AITIAC  I)  •  C; 

TCI  -  TCI  *  i ; 

LO  I  •  I  TO  rTICOUATI; 

OUTTAbLE  I  (TC  1  ♦  I)  •  PO  LLTAb  L  i  I  (L)  ; 

LAC  ; 

TCI  •  TC  I  *  PI  IcOUAT  I ; 

OUTl  AtLL  1  (TC  I*  I)  •  03H  ; 

OUIIAtLE  I  (TC  1*2)  •  03H; 

TCI  ■  TC  I  ♦  2; 

RSGCOUAT  1(«AlT2kGI)  •  TCI  -  TCIlAlTIALi 
GO  TG  CURSUtLCAOl; 

/*•/ 

/*  TABLE  IrAASEER  ERROR  RESSAGL  DUHP  •/ 

/••/ 

TPREAROR  1:  LO  :  •  1  TO  33; 

CUITAbLi(IC  «  1)  •  TFhERRORHDR  (1- 1)  ; 


01360000 
01381000 
01382000 
01383000 
01384000 
0136SOOO 
01388000 
01387000 
01388000 
01369000 
01390000 
0139  1000 
01392000 
01393000 
0  1394000 
0139S000 
01396000 
01397000 
01398000 
01399000 
01400000 
0140  1000 
01402000 
014030U0 
01404000 
OUCbOOO 
01406000 
01407000 
01406000 
01409000 
01410000 
014  1 1000 
0  14  12000 
014  13000 
014  14000 
014  1S000 
0 14 18000 
0  14  17000 
0  14  16000 
014  19000 
0  1420000 
0142  1000 
0  1422000 
01423000 
01424000 
0142&000 
0  1426000 
01427000 
01426000 
01429000 
01430000 
0  143  1000 
01432000 
01433000 
0  1434000 
0  143S000 
01436000 
01437000 
01436000 
01439000 
01440000 
0144  1000 
01442000 
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CUD; 

IC  •  TC  •*  33; 

kAirmC  •  HAITIII6  *  1; 

nSGCOUKKMAITtllG)  •  33; 

CC1  ■  0; 

GO  TO  OPOLIIOI; 

/•  */ 

/•  •/ 

/•  lABtE  tUBPS  */ 

/•  ♦/ 

/*  •/ 

/*  HAKE  Ut  HEADER  */ 

/•  •/ 

/*  •/ 

TBLDUHPt:  ir  CC1  <  12  TMCR  GO  TO  ADRERRORI; 

OUTtTABEE(TC  •  1)  •  OlH; 

OUTJTAbLE(TC  «  2)  «  '3'; 

TC  -  TC  «  2; 

DO  I  •  1  Tc  3  ; 

OUriTAfcLK  TC  ♦  1  )  •  CHASSTOBtl(  1*9  )  ; 

IRE; 

TC  •  IC  ♦  3; 

kAIIlRG  •  kAITlRG  «  1; 

nSGCOUAT  (HATTIKG  )  «  S; 

/*  •/ 

/•  •/ 

/•  SELECT  TABLE  V 
/•  V 

/♦  */ 

ir  CHARSlOkE  1  (9)  •  'O'  THEH  GO  TO  GTABlEDUflP  1 ; 

If  CHARSTOEtl  (9)  •  'p'  THE*  GO  TO  flABlEDUBH; 

If  CHAkSTORE  1  (9)  •  'R'  THER  GO  TO  hTABLEOUBPI: 

If  CHARS10REM9)  «  'w*  THEN  GO  TO  NTABLEOUBPt; 

If  CHARSIORil (9}  •  '!'  THEN  GO  TC  tCLlTABLEDOBP 1 ; 

ELSE  GO  TC  BODEERRORI; 

/*  */ 

/*  */ 

/*  RRICRITT  */ 

/•  •/ 

/•  •/ 

PTABLEDUBPI:  CO  I  «  1  TC  29; 

OUTsTABLEac  I)  •  PIDHEAOER(I  -  1); 

END; 

IC  -  IC  «  ; 

nSCCOURT  (HAIIINC]  •  R  SCCOU  NT  (H  A 1 1 1  NC)  *  29  ; 

If  NCfliPCI  •  0  THER  CO  TO  COHSC' F LO AC  1 ; 

A  •  1; 

/•  OUTFUIIINC  or  PCI  TABLE-  8  CHECNINS  PER  LIRE  •/ 
PTABlEbUILC  1:  DO  I  •  1  TO  8; 

DC  J  •  1  TO  R; 

TC  •  IC  ♦  1; 

BSCCOORT  (NAITIRC)  «  B  SCCOU NT  (HA  1 1 1  RC)  *  1; 

CblSTAELE  (TC)  •  PCISSTCH  E  (N)  ; 

II  R  >*  PCIfPOlNTER  THEN  CO  TO  CORSCPlOADI; 

R  •  R  ♦  1; 

ENC; 

TC  •  TC  «  1  ; 

OUTSTABLE  (1C  )  •  fCN; 

RSGCOURT  (HAITINC)  •  BSGCOU  NT  (U  A  1 1 1  RC)  *  I  ; 

END; 

TC  »  TC  t  1  ; 

OUTSTABLE  (TC  )  •  ODh ; 

TC  •  TC  <  1; 


0U43000 

OIURItOOO 

OIHNSOOO 

OINttGOOO 

OtUATOOO 

oiRAeooo 

01««9000 
OINSOOOO 
OIKS  1000 
01II&2000 
01963000 

oinshooo 

01466000 
01466000 
01467000 
01468000 
01469000 
01460000 
0146  1000 
0  1462000 
01463000 
01464000 
01466000 
01466000 
01467000 
01468000 
01469000 
01470000 
01471000 
01472000 
01473000 
01474000 
01476000 
01476000 
01477000 
01478000 
01479000 
01480000 
0148  1000 
01482000 
01483000 
01464000 
01486000 
01486000 
01487000 
01486000 
01489000 
01490000 
0149  1000 
01492000 
01493000 
01494000 
01496000 
01496000 
01497000 
01498000 
01499000 
01600000 
0160  1000 
01602000 
01603000 
016L4000 
01606000 
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OUTSTAiiLE  (IC  )  •  OAN; 

nSGCOUAT  (UAIIIKG)  •  nSGCOUKT  (UAITIKG)  *  2  ; 

GO  TO  PTABlEBUllCI; 

/•*/ 

/*•/ 

/•  BCUTINE  •/ 

/••/ 

/*•/ 

hTABLEOUtlPI:  CO  I  •  1  TO  26; 

OUTETAbLE  (TC  «  I)  •  RTDHCAOER  (I '  1)  ; 

EMC; 

1C  »  TC  ♦  2b; 

PSOCOUAT  (tiAlTIliG)  •  KSGCOURT  (HAITIAG)  *  28; 

If  AUnibCl  >  0  THEN  CO  TO  COBSUF lOACI ; 

A  •  1; 

/•  CUTFUTllNG  OT  RCl  TABLE*  B  CHECKIRS  PER  LINE  •/ 
ATABLEbUlLLt:  DO  1  •  1  TO  8 ; 

LO  J  «  1  TC  B; 

TC  .  TC*  1; 

nSGCOUAT  (WAITIAG)  •  BSGCOUNT  (bAI Tl NC-)  *  1; 

OUT)TAbLE(TC)  •  RCIESTORE  (N)  ; 

IF  N  >•  bClEPOlATEb  THEN  CO  TO  CORStPLOADl; 

A  •  N  ♦  1; 

INC; 

TC  .  IC  ♦  1; 

CUTbTAbLE  (1C  )  •  20h: 

nSCCOUAT  (NAITINC)  «  HSGCOUNT  (AAITI NG)  *  1; 

INC; 

TC  *  TC  ♦  1; 

OUItlAbLE  (IC  )•  OCH; 

TC  •  TC  *1  ; 

OUTJTABLE  (1C  )  •  OAH; 

nsCCO((AT  (KAITIAC)  •  BSCCOUNT  (BAT  II  AC)  *  2; 

GO  TO  ATABLLbUILOl; 

/**/ 

/•*/ 

/*  AC  TRAFFIC  */ 

/**/ 

ATABLECUBPI:  EO  I  •  I  TO  31; 

OUTJTAbLE  (TC  ♦  I  )  •  ATDHEABER  (I- 1)  ; 

EAU; 

TC  .  TC  ♦  31; 

nSGCOUAT  (NAITIAC)  •  RSGCOU  NT  (A  AITI  AC)  *  31; 

IF  ACniACI  •  0  THEN  GO  TO  CCBSUPLCAEI; 

A  »  1 ; 

/•  OUlpUTIlAC  Of  ACI  TAbLE  -  B  CHECKINS  PER  LINE  •/ 
ATAbLEbUILL  1:  CO  I  «  1  TO  6 ; 

CC  J  •  1  TO  U; 

1C  .  IC  <  I; 

nSGCCUNT  (AAITIAG)  •  BSGCOUAT  (HAITI  AG)  *  1; 

OUTETAbLE  (TC  )  >  NCISSTORE  (N)  ; 

If  A  >•  ACItPOlATER  THEN  GO  TO  COnSLPLOACI; 

A  «  A  ♦  1; 

END; 

TC  •  TC  ♦  1; 

nSOCOUAT  (HAITIAG)  •  P SGCOU N T  (A A1 T1  AG)  *  I; 

OUTSTABLE  (IC)  •  20H; 

END; 

TC  •  TC  ♦  1; 

OUTSTABLE  (TC)  *  OCH; 

TC  •  TC  ♦  1; 

CUTSIABLE  (TC)  •  OAb; 

PSCCOUNT  (HAITIAG)  •  RSGCOU  NT  (HAl  TI  AC)  *  2; 


01S06000 
01S07000 
01S08000 
01S09000 
01S10000 
0IS11000 
01S12000 
0  IS  13000 
01S  14000 
01S1S000 
01S1B000 
01S17000 
01S18000 
01S19000 
01S20000 
01S21000 
01S22000 
01S23000 
0tS24000 
01S2SOOO 
01S2B000 
01S27000 
01S28000 
01S29000 
01S30000 
01S31000 
01S32000 
01S33000 
01S34000 
01S3SOOO 
01S3B000 
01S37000 
01S3B0O0 
01S39000 
01S40000 
01S4  1000 
01S42000 
01S43000 
31SU4000 
01S4S000 
01S46000 
01S47000 
01S48000 
01549000 
OISSOOOO 
01SS1000 
01S52000 
01S53000 
01S54000 
01SS5000 
OISSOOOO 
01S57000 
01SS8000 
01SS9000 
01S60000 
01SB1000 
01S62000 
01SB3000 
01S64000 
01S8S000 
01S66000 
01S67000 
01S6BOOO 
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i 
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GO  TO  kTABIlBUILDI ; 

/••/ 

/**/ 

/•  GROUP  CHECRIK  */ 

/••/ 

GTABlttUnPI:  00  I  «  1  TO  26; 

OUIIABLE  (1C  «  1)  ■  GTDHEADER  (1-1)  : 

END; 

TC  -  TC  4  it; 

nSGCOUAT  (dAlTING)  >  BSGCOU KT  (WAX T1  AC)  *  ji; 

If  MUnSGCl  «  C  THEN  GO  TO  COHSUPIOAEI; 

A«  1 : 

/•  OUTPUTIINC  or  GCl  TABLE  -  6  CHECKINS  PER  LINE  */ 

GTAALERUILD 1:  DO  I  •  1  TO  8; 

CO  J  •  1  TO  G; 

TC  •  TC  ♦  1; 

RSGCOUNT (WAITING)  •  HSGCOUNT (HAITI NG)  *  1; 

OUTTABLE(TC)  •  GCISSIORE  (N)  ; 

If  N  >•  CCISPOINTER  1HEA  CO  TO  C0HSUPL0AD1; 

A  ■  N  ♦  1; 

EAC; 

TC  •  TC  ♦  1: 

OllIABLE(TC)  •  20H: 

nSGCCUAT  (WAITING)  •  HSGCOUAT  (WAITING)  *  1; 

END  ; 

TC  •  TC  ♦  1; 

OUTIABIE(TC)  •  OOH; 

TC  •  TC  ♦  1; 

OUTIAbLE(TC)  «  OAH; 

nSCCLUAT  (WAITING)  •  HSGCOUNI  (WAITING)  *  2; 

GO  10  CTABIEBUILCI; 

/••/ 

/••/ 

/•  POLL  */ 

/••/ 

/**/ 

P0LLIAtLlDUHF2:  WAITING  «  WAITING  «  1; 

TOTALSNUniCl  •  NunilCI  *  NUHShCI  *  NUHSNCl  *  NUHSGCl; 
PTICOUNTt  •  <t  •  TOTALSNUnSCI; 

/•  RESET  or  POLLING  HODE  PARAHETERS  •/ 

POlLtrLAC  ■  0; 

REPGLLSrLAGSCOUNT  •  0; 
poiLSnscJcouAT  •  0: 

TDRIPOLLSTISSLOT  •  TDHSFO L LITltSLOTI I AITI A L; 

POLLTAELIOUHPI:  If  TOTALSAUHKl  ==  0  THEN  CO  TO  COHSUPLOADI; 
ir  CHARSIURE  I  (  13)  •  'R'  THEN  POLlITABLEBTIiriAC  •  OIH; 

ELSE  POLLSTABLESIISILAG  •  OH; 

DO  I  •  1  TC  26; 

0UTSTA6LE  (TC  «  I  }  •  POLLOUflPHDR  (1- 1)  ; 

END; 

ICINITIAL  •  TC; 

TC  •  IC  ♦  2b; 

/*  OUTPUTTING  or  POLL  TABLE-  8  CHECKINS  PER  LINE  */ 

POLLOUHPBUILDI:  IINECOUNT  •  0; 

N.  0; 

/•  SLOT  ASSIGNHENT  HEADER  -  flRST  LINE  */ 

/••/ 

0*1: 

DUTIABLE  (TC  «  1)  •  26H; 

0U11AELE(TC  *  2)  *  POLLSSLOTIH; 

0UI1ABLE(TC  *  3)  ■  POLLSSLOTU; 

DUTIABLE  (TC  4  b)  ■  29H; 

OUITAblE(TC  4  b)  >  20H; 


01S69000 

01S70000 

01571000 

01572000 

01573000 

O157GOO0 

01575000 

01576000 

01577000 

01578000 

01579000 

01580000 

01581000 

01582000 

01563000 

0156G000 

01585000 

01586000 

01587000 

01588000 

01589000 

01590000 

01591000 

01592000 

01593000 

0159G000 

01595000 

01596000 

01597000 

01598000 

01599000 

01600000 

01601000 

01602000 

01603000 

01604000 

01605000 

01606000 

01607000 

01608000 

01609000 

01610000 

01611000 

01612000 

01613000 

01614000 

01615000 

01616000 

01617000 

01618000 

01619000 

01620000 

01621000 

01622000 

01623000 

01624000 

01625000 

01626000 

01627000 

01628000 

01629000 

01630000 

01631000 
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IC  •  IC  ♦  b; 

LlklCOUKT  «  LINECOUNT  »  b; 

LOADADh:  DO  I  •  1  TO  4 ; 

OUTIABLE  (TC«I)  «  PO  L  ITAELE  1  (4  «1)  ; 

EAC; 

k  •  k*4; 

OUTTAbLE  (TC«b)  ■  20H; 

LlklCOUNT  •  LlNECOUkT  *  b; 

TC  •  It  «  b; 

If  k  >•  FTICOUktl  THLk  GO  TO  EkDLOAt; 

If  LlMECOUkT  <  4b  THAN  GO  TO  LOACACEa 
ELSE  GO  10  ikDlCAE; 

EkbLCAD:  0 U1 TA bLE (TC* 1)  «  ODH; 

OUTTAbLE  (TC*2)  «  OAH; 

TC  •  TC  ♦  2; 

LlkLCOUkT  •  0; 

nsGCOUNT (NAITING)  •  RSGCOUkT (HAITIKG)  *  (TC-TCl kITlAL) ; 
TClkITIAl  -  TC; 

It  k  >>  PTKUUkTI  ThEM  GO  TO  PO  L  LSI  ABLEtTl ; 

/*  SLOT  ASSlGknEKT  HEADER  •  ACO'L  LIRES  •/ 

OUTTAbLE  (Tk  *  1)  •  2bH; 

LO  CASE  J; 

OUTTAbL»(TC  ♦  2)  •  POLLISLOTIH; 

OUTTAbLE(TC  *  2)  •  P0LLSSL0T2h; 

OUTTAbLE  (TC  *  2)  •  P0LLSSL0T3H; 

OUTTAbLE  (TC  *  2)  •  POLISSLOTAH; 

OUTTAbLE  (TC  *  2)  •  POLLSSLOTbH; 

OUTTAbLE(TC  «  2)  «  POLLSSLOTbH; 

ikb; 

LO  CASE  J; 

OUTTAbLl(TC  *  3)  «  POLLSSLOTU; 

OUTTAbLE  (TC  *  3)  •  P0LLSSL0T2La 

OUTTAbLE(TC  *  3)  •  P0LLSSL0T3L; 

OUTlAbLE(TC  *  3)  •  P0LLSSL0T4L; 

OUTTAbLE  (TC  *  3)  >  POLLSSLOTbL; 

OUTTAbLE(TC  *  3)  •  POLLSSLOTbL; 

EkO; 

OUTTAtLE(TC  *  4)  •  29H; 

OUTTAbLE  (TC  *  b)  •  20H; 

TC  •  TC  ♦  b; 

LlkLCOUkT  >  LlkECOUNT  «  b; 

J  •  J  ♦  1; 

If  J  >  b  IhEk  0-0; 

GO  TO  LOADALR; 

/••/ 

/••/ 

POLLiTAbLESTE:  If  fOLLSTAB LESTXS f L AG  <>  0 1H 
TNEk  GO  TO  COnSUFLCADI; 
bAIIlRCI  «  NA1T1RC1  «  1; 

DC  1  1  •  1  TO  rSGCOUNT  (NAITIRC)  ; 

OU1TABLE1  (TC1*1  1)  -  OUTT ABL  E  (TC  *1  I'HSCCOUN  T  (4  AITl  NC)  )  ; 
EkO  ; 

/•  •/ 

/•  ALL-CALL  HEADER  SUBSTlTUTlOk  •/ 

OUITABLE 1  (TCI  ♦  1)  •  ’S'; 

OUTTAbLE  1  (TC  1  *  2)  •  ’L'; 

OU1TABLE1  (TCI  *  3)  •  'O'; 

OUTTABLE  1  (TC  1  ♦  4)  •  'T*  ; 

OUITABLEMTCI  *  b)  ■  2FH  ; 

/•  •/ 

RSGCOUNT  1  (HAlTlkC  I)  •  RSGCOUkT  (HAITI  NO)  ; 

TCI  •  ICl  *  RSGCOUNT (HAITING) ; 

POLlSTAbLESTXSf LAG  •  0; 


01b32000 
01b33000 
01b34000 
01b3b000 
01b3b000 
01b37000 
01b36000 
01b39000 
01440000 
01441000 
01642000 
01643000 
01644000 
01649000 
01646000 
01647000 
0  1648000 
01649000 
OIbbOOOO 
OIbblOOO 
01692000 
016S3000 
01694000 
OIbbSOOO 
OIbbbOOO 
01697000 
01698000 
01699000 
01660000 
0166  1000 
01662000 
01663000 
01664000 
01669000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01679000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01684000 
01689000 
01686000 
01687000 
01688000 
01689000 
01690000 
01691000 
01692000 
01693000 
01694000 
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GL  1C  COnSUlLOACI; 

/*•/ 

/•*/ 

/•  tCLl  TABLE  SETUP  */ 

/♦•/ 

/•*/ 

/••/ 

/•  GET  I  C  1  DATA  •/ 

/••/ 

/•*/ 

pOLLlAbLEBUlLDI:  IE  kUBSPCl  •  0  THEA  GO  TO  HPOLLBUILCI; 
k  ■  CkkUr.ifCI; 

DO  1  •  1  TO  N; 

POLLTAbLE  1  (I)  •  PCI  SSTOB E  (1)  ; 

LkD; 

/•V 

/••/ 

/*  GET  h  C  I  DATA  •/ 

/••/ 

/•V 

hPOLLbUILD  1:  IE  kUBSkCl  •  0  THEk  GO  TO  kPOLLBllLDI; 
k  ■  <i*kUI!lhCI; 

POLlpOIkTEb  1  «  U  «  kUHAPCl; 

DO  I  •  1  TC  Ki 

PCLlTAbLE1(F0LLF01kT£B1  *  I)  •  AC ISSTURE (1  >  ; 

IkD; 

/••/ 

/••/ 

/•  GET  k  C  I  DATA  •/ 

/•*/ 

/••/ 

kFOLLbUlLDI;  IE  kUnSkCI  •  0  THEK  GO  TO  GFOLLBUILDI; 
k  ■  nkkUnSkCI; 

FOLLPOIkTEbI  •  b  *  (kUHlFCI  ♦  KUHAPCI); 

DO  I  •  1  TC  K ; 

FOLLIABLEM  FOLLFOIKTER1  •  I  )  «  kCISSTOR  E  (I )  ; 

EKD; 

/••/ 

/••/ 

/•  GEl  GCI  DATA  */ 

/••/ 

/♦•/ 

GFOLLbUILDI:  IE  kURSCCX  •  0  THEk  GC  TO  PO  LIT  Ab  LEDUHF  <! ; 
k  •  tikkUnSGCI: 

F0LLP01NTER1  •  b  *  (NUHSFCI  •  NUHARCI  *  KUHANCI); 

DO  1  •  1  TO  K: 

FOILIABLEI  (PCLLFOIKTLR1  «  I)  •  GCIASTCRE  (1)  ; 

EkD; 

GO  TC  FOLLTABLEDUHF2 ; 

/••/ 

/••/ 

/•  OUTPUT  •/ 

/•*/ 

OFOLL1U1:  II  CLLA11  •  1  THEK  CO  TO  CELAI t ROU T1 KE  1  ; 

IF  RAITIKCI  <•  0  THEK  GO  10  IPOILI; 

IE  TCI  >  0  THEK  CO  TO  EOriCSTI; 

ELSE  GO  TO  IPOLII; 

EOnllSTI:  IE  OUTCOUkTI  <  nSCCOUkTI(l)  THEk  CO  TO  SPACETESTI; 

ELSE  CELAT1  -  1; 

SPACETESTI:  SFACtI  ■  1 KFUT lOSSOA 1 A  kOR  OFEH; 

SPACAl  •  SPACEl  AKD  C2H: 

IF  SPACEl  •  02H  THEk  CO  TO  OUTCHARI; 

ELSE  CELAI1  •  0; 


0169&000 
OU96000 
01697000 
01698000 
01699000 
01700000 
01701000 
01702000 
01703000 
0170UOO0 
0170SOOO 
01706000 
01707000 
01708000 
01709000 
01710000 
0171 1000 
01712000 
01713000 
01711)000 
0171S000 
01716000 
01717000 
01718000 
01719000 
01720000 
0172  1000 
01722000 
01723000 
01724000 
01729000 
01726000 
01727000 
01728000 
01729000 
01730000 
01731000 
01732000 
01733000 
01734000 
0173S000 
01736000 
01737000 
01738000 
01739000 
01740000 
0174  1000 
01742000 
01743000 
01744000 
0174&000 
01746000 
01747000 
01748000 
01749000 
017S0000 
01791000 
01792000 
01793000 
01794000 
01799000 
01796000 
01797000 


CC  TO  li’Ol.LI; 

/*•/ 

/••/ 

/*  DllAY  BOUII»ES  •/ 

/•*/ 

/••/ 

OELAIikOLTII-EI:  CLK1  •  IIIPUT(230); 

CLK1  •  CLK1  AKD  01H; 

ir  CLK1  •  CLKP1  THEk  GO  TO  IPCLLI; 

CLKCkll  •  CLKCtiTI  «  1; 

CLKPl  •  CLKI; 

IE  CLKCkTI  <  burrER$DELAY 1  THEN  GO  TO  tPOLLI; 

OUTPbl  (2  JS)  •  OSH; 

if  TLKSELAG  <>  M*  THEM  GO  TO  NONtTDnSDLLAY 1 ; 
TOKlOELAriECUTIKE  t:  CLK3  •  1IIPUT(23C); 

CLK3  >  CLM3  AMD  01H; 

if  C1K3  -  CLHfi  THEM  CO  TO  IfCtll; 
tiKOMTi  -  CLKCMT3  ♦  1; 

(.1KP3  •  C1.M3; 

If  CIECMT3  <  SLOTiGUABDSTIHE  THEN  GO  TO  TPOLLI; 

LELAYl  •  0; 

LLaCMTI  •  0; 

CL  AC  M2  •  0; 

CLKCMTJ  *  0; 

GO  Tt  TPOLLI; 

MoM  TCr.i  LE  LAI  1 :  CLK2  •  INPUT  (230); 

C1K2  •  CLK2  ANC  G  1h ; 

II  CLK2  •  clap:  THEM  GO  TC  IPOLL); 

CLACMT2  •  CLKCNT2  •  1; 
tlMP2  •  CLKI; 

II  CLKCNT^  «  NCNITCnfniiG)  LELAl  1  THEN  GO  TO  TPOLLI; 

11  CC  «  C  THEM  DELAII  •  CH; 

ELSI  DELAI  1  •  0 1h  ; 

11  MOMETCr.trSGiDELAT  1  <  ■=  iCH  THEN  GO  TO  H  XS  bU  SI  $OV  E  NR  ID  E  1  ; 
C IMCMT  1  ■  0 ; 

CLACMT2  •  0; 

CIICMT3  ■  0; 

GG  TO  IPOLL  1  ; 

/•»/ 

/*•/ 

MI IbGS I J GV EhRl DE  I :  DELAII  •  0; 

DC  CASE  FOLLSfLAG; 

MOMSTCHinSCSDELAII  •  0; 

NOMSTDHSrSGjDELAI 1  >  3Ch; 

E  ML  ; 

CIKCMT  1  •  C; 

CLMCMT2  •  G; 

CLECMT3  •  C; 

GO  TO  TPOLLI; 

/*•/ 

/•♦/ 

OUTCHAkI;  tLTPUT(235)  •  OiiH; 

OUTPUT  1G11LATA  •  OUT TA bLE 1  (OUTC CU M T I)  XOR  OFfM; 

CGICCUMI  I  •  OUTCCUMII  *  1; 

SHlfTLCaMl:  IE  OUTCOUNTI  <•  nSGCGUMTI(l)  THEN  GO  TO  TPOLLI; 

ELSE  DC  T1  •  OUTCCUMII  TO  TCI; 

GUTTAELEI  (  II  *1  -  OUTCOUNTI)  •  OUTTAHLE 1  (1  1)  ; 

EMC; 

LO  1  I  >  1  TC  MATTINGI ; 
nsGCcuMTMii)  •  nscccUMTi(Ti  *  1  ); 

EML; 

TC  1  •  TC  I  -  (  OUTCOUNT 1  -  1  )  ; 

RSbCoUMT  I  (MAITlMCl)  •  U; 


ousaooo 

017S9000 
01760000 
01761000 
01762000 
01763000 
0176U000 
01766000 
01766000 
01767000 
0176S000 
01769000 
01770000 
01771000 
01772000 
01773000 
0177U000 
01776000 
01776000 
01777000 
01778000 
01779000 
01780000 
0  176  1000 
01782000 
01783000 
0178U000 
01786000 
01786000 
01787000 
01768000 
01769000 
01790000 
0  179  1000 
01792000 
01793000 
0179NOOO 
01796000 
01796000 
01797000 
01798000 
01799000 
01600000 
01801000 
01602000 
01bC3000 
01804000 
01806000 
01806000 
0  1807000 
01808000 
01809000 
01810000 
01811000 
01812000 
01813000 
01814000 
01816000 
01816000 
01617000 
01818000 
01819000 
01820000 
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HAlTlkC  1  «  kAlTIliG  1  -  1  ; 

OUTCOUkTI  •  1; 

01S2 1000 
01622000 

It  hAlTlktil  °  0 
bU  TO  IFOLLI; 

THEI.  TCI  -  0; 

01623000 

0162*000 

COJT;  OUTPLJ(i) 

•  CC; 

0162S000 

CUTFUT  (2) 

•  cci; 

01626000 

OUTPUT  (2) 

•  HSCCOUNT  (1)  ; 

01627000 

OUTPUT  (2) 

>  nsGCouuT  1(1): 

01628000 

OUTPUT  (2) 

•  IC; 

01829000 

OUTPUT  (2) 

•TCI; 

01830000 

OUTPUT  (2) 

•  OUTCOUNT; 

01831000 

OUTPUT  (2) 

•  OUTCOUUTI; 

01832000 

OUTPUT  (2) 

>  UAITIUG; 

01833000 

OUTPUT  (2) 

•  hAlTlIiGI; 

0163*000 

OUTPUT  (2) 

•  kUnSPCI; 

0183SO00 

OUTPUT  (2) 

•  kUHSkCI; 

01636000 

OUTPUT  (2) 

•  kUrSkCI; 

01837000 

OUTPUT  (2) 

•  KUr.SGCI; 

01636000 

OUTPUT  (2) 

tor 

-  PTICOUMTI; 

01639000 

016*0000 
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GLOSSARY 


AFSATCOM 

Air  Force  Satellite  Communications 

AFSC 

Air  Force  Systems  Command 

ASR 

automatic  send  receive 

BCD 

binary  coded  decimal 

b/s 

bits  per  second 

CINC 

Commander- in-Chief 

CMOS 

complementary  metal-oxide  semiconductor 

COMSUP 

communications  supervisory 

CP 

command  post 

CPU 

central  processing  unit 

CRT 

cathode  ray  tube 

EAM 

emergency  action  message 

EDAC 

error  detection  and  correction 

EPROM 

eraseable  programmable  read-only  memory 

ESD 

Electronic  Systems  Division 

FLTSATCOM 

Fleet  Satellite  Communications 

FSA 

free  storage  area 

FSK 

frequency  shift  keying 

IC 

integrated  circuit 

I/O 

input/output 

ISA 

instruction  storage  area 

LSI 

large  scale  integration 
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GLOSSARY  (Continued) 


MI 

message  indicator 

MPU 

message  processor  unit 

NB 

narrowband 

NCA 

National  Command  Authority 

NCS 

net  control  station 

OW 

orderwire 

PROM 

programmable  read-only  memory 

R/T 

receiver/transmitter 

RX 

receive 

SBC 

single  board  computer 

SDS 

Satellite  Data  System 

Slop 

Single  Integrated  Operations  Plan 

SSDA 

synchronous  serial  data  adapter 

TDM 

time  division  multiplex 

TTL 

transistor-transistor  logic 

TX 

transmit 

UHF 

ultra  high  frequency 

VSA 

variable  storage  area 

WB 

wideband 

WWABNCP 

Worldwide  Airborne  Command  Post 
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